for i:=0 to form1.ComponentCount-1 do
  begin
   if form1.Components[i] is TMenuItem then
      begin
      ADOCommand1.CommandText:='INSERT INTO  list_forms (name_form) values ('''+
     (form1.Components[i] as TMenuItem).Caption+''')';
      ADOCommand1.Execute;
      end;

   end;