1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

uses
  FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  DirPart, FilePart: String;
  DrivePart: Char;
const
  Path = 'C:\WIN98SE\SYSTEM\SYSEDIT.EXE';
begin
  if not FileExists(Path) then Exit;

  ProcessPath(Path, DrivePart, DirPart, FilePart);

  ShowMessage(                        // Variableninhalte:
    'Laufwerk: ' + DrivePart + ^j +   // Laufwerk: 'C'
    'Ordner: ' + DirPart + ^j +       // Ordner: '\WINDOWS\SYSTEM'
    'Dateiname: ' + FilePart          // Dateiname: SYSEDIT.EXE
    );
end;