Trennen von Pfaden

[Chefx]

Hey DBs,

Ich hab mal eine frage zu mein Quelltext

Delphi-Quellcode:

function regfile(pfad:string):string;
 var
  stringAL : string;
  i,leng:integer;
 begin
  Result := '';
  for i := 0 to length(pfad) - 1 do if pfad[i] = '/' then leng:=i;
  delete(pfad,leng,Length(pfad));
  result:=pfad;
end;

Also ich will diesen

Code:

c:/user/irgendwo/datei.txt

trennen das ich nur noch:

Code:

c:/user/irgendwo/

habe.
Aber ich bekomme so ein hohen integer wert raus das es rein theoretisch bei dem pfad nicht ergeben kann (4347318 ).
Wo leigt mein problem oder geht das noch einfacher mit dem trennen?