Plaintext aus .EML-Datei extrahieren?

[PeterPanino]

Ich habe jetzt diesen Code produziert:

Delphi-Quellcode:

for I := 0 to IdMessage.MessageParts.Count - 1 do
begin
  if IdMessage.MessageParts.Items[I] is IdText.TidText then
  begin
    if Pos('text/plain', IdText.TidText(IdMessage.MessageParts.Items[I]).ContentType) > 0 then
    begin
      PlaintextBody := IdText.TidText(IdMessage.MessageParts.Items[I]).Body.Text;
      BREAK;
    end
    else if IdText.TidText(IdMessage.MessageParts.Items[I]).ContentType = 'text/html' then
      HTMLBody := IdText.TidText(IdMessage.MessageParts.Items[I]).Body.Text;
  end;
end;

if PlaintextBody <> '' then
  Memo2.Lines.Add(PlaintextBody)
else if HTMLBody <> '' then
  Memo2.Lines.Add(ExtractTextFrom(HTMLBody));

Haltet ihr das für einigermaßen sicher?