Veja como é fácil obter o tipo de uma unidade de armazenamento (drive).

• Inclua na seção uses: Windows, Dialogs
• Coloque um botão no formulário.
• Programe o evento OnClick como abaixo.

procedure TForm1.Button1Click(Sender: TObject);
var
  Unidade, Tipo: string;
begin
  Unidade := 'C:\';
  case GetDriveType(PAnsiChar(Unidade)) of
    0: Tipo := 'Tipo indeterminado';
    1: Tipo := 'Unidade não existe';
    DRIVE_REMOVABLE: Tipo := 'Unidade removível';
    DRIVE_FIXED: Tipo := 'Unidade fixo';
    DRIVE_REMOTE: Tipo := 'Unidade de rede';
    DRIVE_CDROM: Tipo := 'Unidade de CD/DVD';
    DRIVE_RAMDISK: Tipo := 'Unidade virtual (RAM Disk)';
  end;
  ShowMessage('Unidade: ' + Unidade + #13 + 'Tipo: ' + Tipo);
end;

Observação:

Para obter o tipo da unidade corrente, passe nil como parâmetro para a função GetDriveType.