[dec]

Hola,

La respuesta está en la unidad SysUtils:

Código Delphi [-]
 var
   unidad: string;
 begin
   unidad := ExtractFileDrive('C:\archivo.txt');
 end;