//unit1
procedure TForm1.ActionUpdate1Execute(Sender: TObject);
begin
{изменить запись}
  ShowEditForm(false, ADOQuery1);
end;

//unit2
function ShowEditForm(Add: boolean; Query: TADOQuery): integer;
begin
  if not Add then
  begin
{подготавливаем данные из запроса}
    Form2.Edit1.Text := Query['AText'];
    Form2.Memo1.Lines.Text := Query['AMemo'];
  end;
{показываем форму}
  Result := Form2.ShowModal;
end;

procedure TForm1.ActionCopy1Execute(Sender: TObject);
var Id: integer;
begin
  {копируем текущую запись}
  ADOQuery2.SQL.Text := 'insert into Table(Id) values(:Id) select @@Identity as NewId';
  ADOQuery2.Open;
  Id := ADOQuery2['NewId'];
  {перечитываем данные грида}
  ActionReload1.Execute;
  {устанавливаем курсор на новую запись}
  ADOQuery1.Locate('Id',Id,[]);
// показываем форму2
  ShowEditForm(false, ADOQuery1);
end;

uses
 ... unit2, ...

Procedure TForm1.КнопкаИзменитьКлик(Сендер: ТОбъект);
var
  Frm2: TForm2;
begin
  Frm2:= TForm2.Create(Self);
  try
    Frm2.ShowModal;
  finally
    FreeAndNil(Frm2);
  end; 
end;

function ShowEditForm3(Add: boolean; Query: TADOQuery): integer;
var Form3: TForm3;
begin
  Fоrm3:= TForm3.Create(Application);
  try
    Fоrm3.ShowModal;
  finally
    Fоrm3.Free;
  end;
end;

function ShowEditForm2(Add: boolean; Query: TADOQuery): integer;
var Form2: TForm2;
begin
  Fоrm2:= TForm2.Create(Application);
  try
    ShowEditForm3(false,ADOQuery1);
    Fоrm2.ShowModal;
  finally
    Fоrm2.Free;
  end;
end;