Eliminar al final de la cadena el <BR>

[KmoCuesta]

Hola:
No doy pie con bola, el tema es que desde delphi envio un email y se ejecuta el cliente de correo pred. todo va bien, hasta que en el cuerpo del mensaje aparecen los odiosos <BR> se que me marca cada salto de linear, pero nose como evitarlo. espero que alguno me de una psita. saludos a todos.

while not Eof do
begin
Inc(i);
EnviarCorreo.Body.Add(IntToStr(i)+ ') '+Fields[1].AsString +' con fecha de vencimiento: '+Fields[2].AsString); //
Next;
end;

[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;