Lo intente como me sugeriste
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+'#';
y me sigue dando el error; el error me lo da en el campo GMSUB