1:
2:
3:
4:
5:
6:

//(...)
  s := 'http://www.server.com/files/datei.zip';
  REPEAT
   DELETE(s, 1, POS('/', s));
  UNTIL POS('/', s) = 0;
//(...)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

uses FileCtrl;

var pfad: string;
  laufwerk: char;
  verzeichnisse, datei: string;
begin
  pfad:='c:\temp\test\test2.txt';
  ProcessPath(pfad, laufwerk, verzeichnisse, datei);
  // Neue Variableninhalte:
  // laufwerk: 'c'
  // verzeichnisse: '\temp\test'
  // datei: 'test2.txt'