Indy SMTP Mailversand, Fehler bei Umlauten äöü,ß usw.

[alleinherrscher]

hier mal der Code, wie gesagt mit Indy10 und Delphi2009:

Delphi-Quellcode:

procedure TfoEMail.Senden;
var
   AR,VN,NN,BC,filename: string;
begin

  with Mail do
   begin
         Body.Text:='öäüÄÜÖß';
   
         From.Text := foEMailSetup.UserEMail;
    ReplyTo.EMailAddresses := foEMailSetup.UserEMail;
    Recipients.EMailAddresses:= '';
    CCList.Clear;
    BccList.Clear;

    Recipients.Add;
    Recipients[Recipients.Count-1].Text:=  MAILADRESSE;


         Subject := 'Testöäü' { BetreffZeile }

    Priority := TIdMessagePriority(2); { Message Priority }

         filename:= GetTempDir +'Angebot.pdf'

         if fileexists(filename) then
       TIdAttachmentFile.Create(Mail.MessageParts, filename);

   0: SMTP.AuthType:= satNone;

    SMTP.Username := foEmailSetup.SmtpServerUser;
    SMTP.Password := foEmailSetup.SmtpServerPassword;

    {General setup}
    SMTP.Host := foEmailSetup.SmtpServerName;
    SMTP.Port := foEmailSetup.SmtpServerPort;

    {now we send the message}
    SMTP.Connect;
    try
         SMTP.Send(Mail);
         ShowMessage('Die eMail wurde verschickt.')
    finally
         //ShowMessage('Ein Fehler im Mailversand ist aufgetreten.'+#13+'Bitte prüfen Sie ihre Einstellungen.');
         SMTP.Disconnect;
    end;
end;