Laufwerkstyp ermitteln?

[Sharky]

Hai,

wie schaffe ich es denn den Typ (Netzwer, FixDisk, Remov, CD) eines
in einer DriveComboBox gewählten Laufwerkes zu ermitteln?

Bei diesem Code bekomme ich (unter XP) immer eine EAccessViolation

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 drv_type : Integer;
 drive    : Char;
 t : String;

begin
 drive := DriveComboBox1.Drive;
 drv_type := GetDriveType (PChar (drive));
 Case drv_type of
  0: t := 'Unknown';
  1: t := 'Removable';
  2: t := 'Fixed';
  3: t := 'Network';
  4: t := 'CD-ROM';
  5: t := 'RAM Disk';
 end;
 Label1.Caption := t;
end;