procedure TForm1.FormCreate(Sender: TObject);
var
  f: TStrings;

begin
f:=TstringList.Create();
f.LoadFromFile('c:\Temp\db.txt');
pFIBDatabase1.DBName := f.Strings[0];
pFIBDatabase2.DBName := f.Strings[1];
pFIBDatabase1.Connected := True;
pFIBDatabase2.Connected := True;
pFIBDatabase1.DefaultTransaction:=pFIBTransaction1;
pFIBDatabase2.DefaultUpdateTransaction:=pFIBTransaction2;
pFIBTransaction1.DefaultDatabase:= pFIBDatabase1;
pFIBTransaction2.DefaultDatabase:= pFIBDatabase2;


//Application.Terminate;
//exit;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
    t1:TDateTime;
  t2:TDateTime;
  s:String;
begin
pFIBTransaction1.Active := True;
pFIBTransaction2.Active := True;
pFIBQuery1.Database:=  pFIBDatabase1;
pFIBQuery2.Database:=  pFIBDatabase2;
pFIBQuery1.Transaction:= pFIBTransaction1;
pFIBQuery2.Transaction:= pFIBTransaction2;
t1:= now;
pFIBQuery1.ExecQuery;
t2:= now;
DateTimeToString(s, 'hh:nn:ss.zzz', t2-t1);
pFIBQuery2.ParamByName('t1').AsTime := t1;
pFIBQuery2.ParamByName('t2').AsTime := t2;
pFIBQuery2.ParamByName('s').AsString := s;
pFIBQuery2.ExecQuery;
//pFIBDatabase1.Connected := False;
//pFIBDatabase2.Connected := False;
label1.Caption := 'Выполнено!';
end;

end.