converter firebird para postgree

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  //Memo1 contem a lista de tabelas a serem importadas
  //Vc pode usar GetTableNames do Connection se achar necessario
  //(ADOConnetion1.GetTableNames(Memo1.Lines);)
  for i := 0 to Memo1.Lines.Count - 1 do
    Importa(Memo1.Lines[i]);
end;

procedure TForm1.Importa(Tabela: string);
var
  i: integer;
begin
  if Trim(Tabela) = ´´ then
    Exit;

  ADODataSetOrigem.Close;
  ADODataSetOrigem.CommandText := ´SELECT * FROM ´ + AnsiLowerCase(Tabela);
  ADODataSetOrigem.Open;

  ADODataSetDestino.Close;
  ADODataSetDestino.CommandText := ADODataSetOrigem.CommandText;
  ADODataSetDestino.Open;

  while not ADODataSetOrigem.Eof do
  begin
    ADODataSetDestino.Insert;
    for i := 0 to ADODataSetOrigem.FieldCount - 1 do
    begin
      ADODataSetDestino.FieldByName(ADODataSetOrigem.Fields[i].FieldName).Value :=
        ADODataSetOrigem.FieldByName(ADODataSetOrigem.Fields[i].FieldName).Value;
    end;
    ADODataSetDestino.Post;
    ADODataSetOrigem.Next;
  end;

  ADODataSetOrigem.Close;
  ADODataSetDestino.Close;
end;