keine HTML-Mail versenden?

[smart]

Hallo Alle!

Ich wollte mit diesem Code Emails versenden. Text-Mails versenden geht, aber leider klappen keine HTML- Mail damit. Warum nicht? Ich komme einfach nicht darauf.

Delphi-Quellcode:

var 
  SMTP_HOST : string = 'mail.gmx.net'; 
  POP3_HOST : string = 'pop.gmx.net'; 
  USERNAME : string = ''; // wichtig bei gmx die kundennr 
  PASSWORD : string = '*****'; 
  FROM_ADRESS : string = '[e-mail]'; 
  TO_ADRESS : string = '[e-mail]'; 


function Tmain1.SendEmail(Recipient:string;CCList:string;sSubject:string;Body:TStringList):boolean; 
begin 
idSMTP.Host   := SMTP_HOST; 
idSMTP.Username := USERNAME; 
idSMTP.Password := PASSWORD; 
idMessage.From.text  := FROM_ADRESS; 
idMessage.Sender.text:= idMessage.From.text; 

idMessage.Recipients.EMailAddresses:= Recipient; 
idMessage.CCList.EMailAddresses := CCList; 
idMessage.Subject:=sSubject;  

idMessage.Body.Clear;  
idMessage.Body := Body;  

try  
   idSMTP.Connect;  
   idSMTP.Send(idMessage); 
   idSMTP.Disconnect; 
   result:=True; 
   except on E : Exception do  
     begin  
       if idSMTP.connected then try idSMTP.disconnect; except end;  
       result := false; 
     end;  
end;  
end; 

{email senden }  
procedure TForm1.Button1Click(Sender: TObject); 
begin 
    IdPOP3.Host   := POP3_HOST; 
    IdPOP3.Username := USERNAME; 
    IdPOP3.Password := PASSWORD; 
    IdPOP3.Connect(-1); 
    if IdPOP3.Connected = TRUE then begin 
      st := TStringList.Create; 
      st.Text := eMailMemo.Lines.Text; 
      Main1.SendEmail(TO_ADRESS, '', 'Betreff', st); 
      st.Free; 
      IdPOP3.Disconnect; 
    end; 

end;