[pesi]

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
adotable1.Insert;
adotable1.Edit;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
str : string;
begin
str:= dbedit1.Text; //загоняем в переменную содержимое dbedit1
adotable1.Post;
adotable2.Insert;
adotable2.Edit;
adotable2.FieldByName('familiy').AsString:=str;
adotable2.Post;
end;