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;