Cette fonction retourne l'unité disque et le chemin d'un chemin de fichier.
Function ExtractFileDir(const FileName: String): String;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := ExtractFileDir('c:\dossier\fichier.txt');
// resultat : c:\dossier
end;