Problem mit Umlauten beim senden von Mails mit Indy

[Woodpecker]

Ich nutze die folgende Routine fuer _MIMEConvert.

Delphi-Quellcode:

function _MIMEConvert(s : String) : String;
var i : Integer;
begin
    Result := '';
    for i := 1 to Length(s) do begin
        if s[i] = '€' then begin
            Result := Result + '?=ISO-8859-15?Q?=A4?='
        end else if Ord(s[i]) > $99
            then Result := Result + '=?ISO-8859-1?Q?=' + Format('%x',[Ord(s[i])]) + '?='
            else Result := Result + s[i];
    end;

end;

Hierbei sei angemerkt, dass bei mehreren aufeinanderfolgenden Umlauten die Ausgabe kuerzer erfolgen koennte...