Cette fonction retourne l'unité disque et le répertoire d'un chemin de fichier.

Function ExtractFilePath(const FileName: String): String;

procedure TForm1.Button1Click(Sender: TObject);
begin

Label1.Caption :=ExtractFilePath('c:\dossier\fichier.txt');
// resultat : c:\dossier\

end;