AntiSpamProgram propblem med visning i postprogrammer

Hej
Jeg forsøger at lave et lille AntiSpam program.
Men når det køres under outolook Ekspress eller Incredimail begge
post programmer, bliver Resultatet forskelligt, se nedenfor.

I outolook Ekspress ser det sådan ud i skrivefeltet:
------------------------------------------------------------------------

Onsdag D.14. April 2004
Til Dig



Med venlig hilsen
UserName --------------------- ønsker brugerens navn indsat her?


I Incredimail ser det sådan ud i skrivefeltet:
-----------------------------------------------------------------------
Onsdag D.14. April 2004%0D%0ATil Dig%0D%0A%0D%0A%0D%0A%0D%0AMed venlig hilsen%0D%0AUserName

Hvorfor vises dette resultat ikke ligesom outolook Ekspress?
Hvad skal der rettes eller tilføjes?

Hele HTML koden.
<a href="kontakt.html" title="Send post" target="hojere" onmouseover="this.href='mailto:Mail@domain.dk?subject=Emne:&body= Onsdag D.14. April 2004%0D%0ATil Dig%0D%0A%0D%0A%0D%0A%0D%0AMed venlig hilsen%0D%0AUserName'">Klik her!</a>

Har forsøgt meget med, at indsætte: '+',#13+#10 men uden held.

Her mine delphi koder

procedure TForm1.LMDButton1Click(Sender: TObject);
var
  eUser, eDomain, eTop, eSubject, eLinkTekst, eMusOverTekst, eJavasTekst, eTilTekst, eSignaturTekst: string;
begin
  DeleteFile('C:\\temp.html');

  LMDMemo1.Lines.Text:= '<a href="<JavasTekst>" title="<MusOverTekst>"
  target="hojere" onmouseover="this.href=''mailto:<Mail>@<Domain>.<Top>
  ?subject=<Subject>&body=@Dato@'+'%0D%0A'+'%0D%0A'+'@TilTekst@'+'%0D%0A'+'%0D%0A'+'
  @SignaturTekst@'+'%0D%0A'+'@UserName@''"><LinkTekst></a>';
  
  eUser := ISOEncode(eLMD1.Text);
  eDomain := ISOEncode(eLMD2.Text);
  eTop := ISOEncode(eLMD3.Text);
  eSubject := eLMD4.Text;
  eLinkTekst := eLMD5.Text;
  eMusOverTekst := eLMD6.Text;
  eJavasTekst := eLMD7.Text;
  eSignaturTekst := eLMD8.Text;
  eTilTekst := eLMD9.Text;

  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<Mail>', eUser);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<Domain>', eDomain);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<Top>', eTop);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<Subject>', eSubject);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<LinkTekst>', eLinkTekst);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<MusOverTekst>', eMusOverTekst);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<JavasTekst>', eJavasTekst);

  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '@Dato@', formatDateTime('dd-mm-yyyy hh:nn:ss',now));
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '@TilTekst@', eTilTekst);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '@SignaturTekst@', eSignaturTekst);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '@UserName@', 'UserName');

  LMDMemo1.Lines.SaveToFile('C:\\temp.html');
  Webbrowser1.navigate('C:\\temp.html');
end;

NB: LMDMemo1 har her samme funktion som Memo1

Håber meget du vil hjælpe mig?


Med venlig hilsen
Monie Jacobsen

E-mail: mjs at nypost dot dk