Stringfunktionen verprassen Speicher

[heiopei]

morgn,
vereinfachen kannst du deinen code auf jeden fall schon mal so (würd ich jetzt mal sagen, keine garantie ):

Delphi-Quellcode:

function TrenneParaAb(const Zeichen: String; var Para:String):String;
var
  i : integer;
begin
  result:='';
  If Pos(Zeichen,Para) > 0 then begin
    i:=Pos(Zeichen,Para);
    result:=copy(Para,1,Pred(i));
    delete(Para,1,(i+Pred(length(Zeichen))));
  end;
end;

was du mit speicherverprassen meinst, hab ich noch nicht ganz verstanden.