das Trennzeichen für Pfade kannst du gut mit "pathdelim" ermitteln (dazu einfach mal in die Hilfe von Delphi schauen).
Das Problem bei dir ist, dass leng, wie Himitsu bereits bemerkt hat, nicht initialisiert ist. Da du nach / suchst, aber / nie in dem Pfad vorkommt, wird leng kein Wert zugewiesen.
Das nur zur Erklärung warum dein Source nicht funktioniert. Ansonsten: Schau dir den Post von Dunkel an und verwende das einfach
