function TATABufferInterpreter.BufferToIdentifyDeviceResult( const Buffer: TSmallBuffer): TIdentifyDeviceResult; begin BufferInterpreting := Buffer; result.Model := GetModelFromBuffer; result.Firmware := GetFirmwareFromBuffer; result.Serial := GetSerialFromBuffer; result.UserSizeInKB := GetUserSizeInKBFromBuffer; result.SATASpeed := GetSATASpeedFromBuffer; result.LBASize := GetLBASizeFromBuffer; result.RotationRate := GetRotationRateFromBuffer; end;