function SCSI_Inquery (hFile : THandle;var InqBuff : array of byte): Results;
var
CDBCmd : array [0..5] of byte;
Size : ulong;
SenseBuff : array [0..31] of byte;
begin
    CdbCmd[0] := $12; //   OperationCode := SCSIOP_INQUIRY;
    CdbCmd[1] := $00; //   Flags := CDB_INQUIRY_EVPD=0;  Vital product data
    CdbCmd[2] := $00; //   Total
    CdbCmd[3] := $00;
    CdbCmd[4] := 96; // AllocationLength
    CdbCmd[5] := $00;
     Size := 96;


    Result :=SCSI_IN_Command(hFile,CdbCmd,6,InqBuff,Size, SenseBuff, 3);
end;


////////////////
SetString( S, PAnsiChar(@InqBuff[8])+28, 9 );
  Trim(s);
  fSerial :=s;