Podrías explicitar los campos que te estan dando problemas...y probar de esta forma...
Código Delphi
[-]
QUERY1.SQL.Clear;
QUERY1.SQL.Add('SELECT GMCO, GMOBJ, GMSUB ');
QUERY1.SQL.Add('FROM PRODDTA.F0901 ' );
QUERY1.SQL.Add('WHERE GMCO=''00013'' AND GMOBJ IN (''6250'',''6400'')');
query1.SQL.add(' AND GMSUB=''020201''');
QUERY1.Open;
for i:=0 to Query1.FieldCount-1 do
memo1.lines.add( Format('Campo %d: %s',[i, Query1.Fields[i].FieldName]));
LINEA:='AUX='+Query1.FieldByName('gmsub').AsString+'#'+
'NOM='+Query1.FieldByName('gmobj').AsString+'#';
A ver como va la cosa...