also ich vermute mal du willst das ***** als String da raushaben, oder?
das ginge so:
Delphi-Quellcode:
function GetSpamLevel(S: TStringList): String;
begin
Result:='';
if Pos('X-Spam-Level',S.Text)=0 then Exit;
while Pos('X-Spam-Level',S[0])=0 do S.Delete(0);
Result:=Copy(S[0],Pos(':',S[0])+1,MaxInt);
end;
Sollte zumindest