Das Problem Wäre dann auch gelöst
Delphi-Quellcode:
var
s : String;
begin
s:='Max Mustermann<Max@XN--nat-gebudeservice-wqb.de>';
delete(s,1,pos('<',s));
delete(s,length(s),1);
label1.text:=s;
end;
Nunmehr würde es mich interressieren wie ich mehrere Nachricht aufrufen kann zur zeit funktioniert es nur mit einer Nachricht. Er Empfängt die Daten liest den Absender in ein edit.text sowie Betreff in ein anderes. Die Nachricht selber zeigt er in einem Memo Feld an. wenn aber nun 2 oder mehr nachrichten eingehen sind sie verloren weil er nur die letzte anzeigt.
Habt Ihr Vorschläge für die Umsetzung ????