.eml Dateien auslesen - wie decodieren?

[nezumi7]

ja, das hab ich auch gelesen. Hilft mir aber nicht weiter.

Ich hab jetzt versucht, die .eml Datei in eine Stringlist zu laden (da will ich dann die Punkte rausmachen), den Stringlist-Text in ein MemoryStream zu schreiben und von dort die IDMessage zu laden:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
sl: TStringlist;
eintrag, empf: String;
tsm: TMemoryStream;
begin
If OpenDialog1.Execute then begin
sl := TStringlist.Create;
tsm := TMemoryStream.Create;
sl.LoadFromFile(OpenDialog1.FileName);
//hier noch: einzelne Punkte rausmachen
sl.SaveToStream(tsm);
msg.LoadFromStream(tsm);

empf := msg.From.Text;
Label1.Caption := empf;

tsm.Free;
sl.Free;
end;

end;

....geht aber nicht. (Label1 müsste ja z.B. den Empfänger anzeigen. Tuts aber nicht. "empf" ist leer)