[marcoszorrilla]

Ésta puede ser la idea, pero no sé si funcionará con IbTables.

Código Delphi [-]
function HazSqlTabla(Dataset: TTable): string;
var
  i: Integer;
  str: string;
begin

  try
    Str:='Select ';
    for i := 0 to DataSet.FieldCount-1 do
    begin
      str := str + ' ' + DataSet.Fields[i].FieldName;
        if i <  DataSet.FieldCount-1 then
        Str:= Str+',';
    end;
    Str:=Str+(' FROM ' + DataSet.TableName);
    Result:=str;
  except
  ShowMessage('Se ha producido un Error');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
ShowMessage(HazSqlTabla(Table1));
end;

Un Saludo.