[acertij022]

Aparentemente puede que este en Fields[1].AsString o Fields[2].AsString deberias pasarlos a un function para sacar lo que te moleste ejemplo

Código Delphi [-]
function filtrar(dato:string):string;
var
str1:string;
int1:integer;
begin
for int1:=1 to length(dato)do 
    if (dato[int1] <> #10)and(dato[int1] <> #13) then str1:=str1+dato[int1];//Saca el enter y el retorno de carro
Result:=str1;
end;