Indy POP3: HTML og tekst

Hej allesammen!

Jeg er igang med en pop3 (og smtp) klient. Jeg er løbet ind i et problem... Nogle mails indeholder både HTML og tekst (html til klienter der understøtter det, og tekst til dem der ikke understøtter det). Jeg har prøvet at bikse noget sammen, så den vælger HTML versionen hvis der er en.. men synes ik liige jeg kan få det til at virke.. Den putter nemlig det hele sammen (sådan at der øverst er en tekst version, og nedenunder kommer html versionen). Her er min kode (Body=StringList):

            if HasHTML = false then
            begin
              // indeholder den html?
              if pos(TIdText(mainform.TemporaryMessage.MessageParts.Items[m]).ContentType, 'html') <> 0 then
              begin
                // indeholder html
                HasHTML := True;
                Body.Clear;
                // tilføjer linjer
                for p := 0 to TIdText(mainform.TemporaryMessage.MessageParts.Items[m]).Body.Count -1 do
                begin
                  Body.Add(TIdText(mainform.TemporaryMessage.MessageParts.Items[m]).Body.Strings[p]);
                end;
                //Body := ;
                //mainform.TemporaryMessage.Body.Text := mainform.TemporaryMessage.MessageParts.Items[m]).Body
              end
              else
              begin
                // den indeholder ikke html
                for p := 0 to TIdText(mainform.TemporaryMessage.MessageParts.Items[m]).Body.Count -1 do
                begin
                  Body.Add(TIdText(mainform.TemporaryMessage.MessageParts.Items[m]).Body.Strings[p]);
                end;
                //mainform.TemporaryMessage.Body.AddStrings(TIdText(mainform.TemporaryMessage.MessageParts.Items[m]).Body);
              end;
            end;

Inden alt det, looper den igennem messageparts'ene, for at tjekke om det er en vedhæftet fil eller mailens indhold..

Håber i kan give mig et svar...

Hilsen Mark