[Yurk@]

а так:

Код:

DataModule1.ADOTable5.Open;
DataModule1.ADOTable6.Open;
DataModule1.ADOTable5.Insert;
DataModule1.ADOTable6.Insert;
DataModule1.ADOTable5.FieldByName('имя поля').asString:=DBEdit1.Text;
DataModule1.ADOTable6.FieldByName('имя поля').asString:=DBEdit1.Text;
DataModule1.ADOTable5.Post;
DataModule1.ADOTable6.Post;