Para analizar el formato puedes usar lo siguiente:
(dentro del codigo anterior)
Código Delphi
[-]If Tabla.Fields.Field[i] is TStringField
s := s + #39+Tabla.Fields.field[i].AsString+#39+', ' Else If Tabla.Fields.Field[i] is TIntegerField
s := s + Tabla.Fields.field[i].AsString+', '
Else If