procedure TForm1.Button1Click(Sender: TObject);
var
      fbdb: TpFIBDatabase;
      fbtrans : TpFIBTransaction;
      fbds:   TpFIBDataset;
      msdb:  TZConnection;
      msqr: TZQuery;
begin
    fbdb:=TpFIBDatabase.Create(nil);
     msdb:=TZConnection.Create(nil);
    fbdb.connectparams.Username:='SYSDBA';
    fbdb.connectparams.Password:='masterkey';
    fbdb.DatabaseName:='D:\FDBase\Test.FDB';
     fbdb.LibraryName:= 'fbclient.dll';
    msdb.librarylocation:='C:\Program Files (x86)\Borland\Delphi7\Projects\libmysql.dll';
    msdb.database:= 'test';
    msdb.hostname:= 'smt4.slata.com';
    msdb.password:= 'masterkey';
    msdb.port:=3306;
    msdb.protocol:='mysql-5';
    msdb.user:='sysdba';
    msdb.AutoCommit:=false;
    fbdb.Connected:= true;
    msdb.Connected:= true;
    fbtrans:= TpFIBTransaction.Create(nil);
    fbds:= TpFIBDataset.Create(nil);
    msqr:= TZQuery.Create(nil);
    msqr.Connection:=msdb;
    fbtrans.DefaultDatabase:=fbdb;
    fbds.Transaction:=fbtrans;
    fbds.SelectSQL.Clear;
    fbds.SelectSQL.Add('select ID, A1, A2, A3 from TABLE_1');
    fbtrans.StartTransaction;
    fbds.Open;
    fbds.first;
    memo1.Lines.Clear;
 while not fbds.EOF do begin
      memo1.Lines.add(fbds.FieldByRelName('ID').AsString + ' - '+ fbds.FieldByRelName('A1').AsString+ ' - '+ fbds.FieldByRelName('A2').AsString+' - '+ fbds.FieldByRelName('A3').AsString);
      msqr.SQL.Add('INSERT INTO table_1(ID,A1,A2,A3) VALUE (:ID,:A1,:A2,:A3)');
      msqr.ParamByName('ID').Value := fbds.FieldByRelName('ID').AsInteger;
      msqr.ParamByName('A1').Value := fbds.FieldByRelName('A1').AsInteger;
      msqr.ParamByName('A2').Value := fbds.FieldByRelName('A2').AsInteger;
      msqr.ParamByName('A3').Value := fbds.FieldByRelName('A3').AsInteger;
      msqr.ExecSQL;
      msdb.Commit;
      msqr.close;
      fbds.Next;
end;

    fbtrans.Commit;
    fbtrans.Free;
    fbds.Free;
end;