Stringfunktionen verprassen Speicher

[mkinzler]

Delphi-Quellcode:

function TrenneParaAb(const Zeichen: String; var Para:String):String;
var
  sl: TStrings;
begin
  result:=''; 
  sl := TStringList.Create;
  sl.StrictDelimiter := True;
  sl.Delimiter := Zeichen;
  sl.DelimitedText := Para;
  Result := sl[1];
  Para := Sl[0];
  sl.Free;
end;