USB Stick als HardwareKey

[hm988]

Delphi-Quellcode:

function KeyDrivesExists : DWORD;
var Z                                  : Integer;
    pdwSerNum, dwMaxFNLen, dwFSysFlags : DWORD;
    pszVolumeLabel                     : array[0..11] of char;
    pszFSysName                        : array[0..64] of char;
begin
 for Z := 0 to 25 do begin
   if GetLogicalDrives and (1 shl Z) <> 0 then
   begin
     if GetDriveType(PChar(Chr(Z + Ord('A')) + ':\'))
       =DRIVE_REMOVABLE then
         if GetVolumeInformation(
           (PChar(Chr(Z + Ord('A')) + ':\')), @pszVolumeLabel[0], SizeOf(pszVolumeLabel),
           @pdwSerNum, dwMaxFNLen, dwFSysFlags,
           @pszFSysName, SizeOf(pszFSysName) )

         then Result := pdwSerNum;
   end;
 end;
end;

hallo,
mit dieser Funktion will ich meinen USB Stick, oder sicher auch andere als Hardwarekey benutzen indem ich die Seriennummer auslese.
klar also die Abfrage welche SN ok ist wird später abgefragt, meine Frage hat noch jemand einen Verbesserungsvorschlag und wieso bringt
mir der Compiler immer Die Warnung "Rückgabewert der Funktion 'KeyDrivesExists' könnte undefiniert sein" ??