[[sitrico]]

Entonces te toca irte a mano:

No tengo en este equipo el ejemplo que queria mostrarte pero de memoria :

Código Delphi [-]
Var
SQLText : tStringList;
s : String;
i : Integer;
Begin
SQLText := tStringList.create;
While not tabla.eof do
   Begin
   s := 'Insert Into '+TableName+' (';
   // Los Campos
   for i := 0 to Tabla.fieldcount-1 do
      s := s + Tabla.Fields.field[i].FieldName+', ';
   SetLength(s,Length(s-2); // para quitar el último ', '
   s := s+') Values (';
   // Los Valores
// Aqui hay que tener claro los tipos de datos
   for i := 0 to Tabla.fieldcount-1 do
      s := s + Tabla.Fields.field[i].AsString+', '; 
   SetLength(s,Length(s-2); // para quitar el último ', '
   s := s+'); ';  // el ; al final se usa en los scripts de firebird
   SQLText.Add(s);
   tabla.Next;
   End;
SqlText.SaveToFile('TuArchivoScript.sql');
SQLText.Free;

Te recomiendo que exportes primero tu tabla con IBExpert Y veas el script que se genera para que ajustes este método para que te quede igualito al de IBExpert.