como obter disco presente ( delphi )

uses windows;

function rtnobter_disco_presente: string;
var
  Drives: DWord;
  I: byte;
begin
  Result := '';
  Drives := GetLogicalDrives;
  if Drives <> 0 then
    for I := 65 to 90 do
      if ((Drives shl (31 - (I - 65))) shr 31) = 1 then
        Result := Result + Char(I);
end;

como usar a rotina:
if Pos('A', rtnobter_disco_presente) > 0 then
  ShowMessage('unidade A: presente.')
else
  ShowMessage('unidade A: ausente.');