Считывание MBR жесткого диска

procedure TForm1.FormShow(Sender: TObject);
var
 i: integer;
 br: DWORD;
 buf: array of byte;
 countBuf: DWORD;
begin
  Drive := 0;
  countBuf := 447;
  hDisk := CreateFile(PChar('\\.\PHYSICALDRIVE0'),
    GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0);
  if hDisk_ = INVALID_HANDLE_VALUE then Exit;
  ResDefDisk := DeviceIoControl(hDisk,IOCTL_DISK_GET_DRIVE_GEOMETRY,nil,0,
    @DiskGeometry,SizeOf(TDiskGeometry),junk,nil) and (junk = SizeOf(TDiskGeometry));
  Memo1.Lines.Add('Кол-во цилиндров: '+inttostr(DiskGeometry.Cylinders));
  Memo1.Lines.Add('Тип носителя: '+inttostr(DiskGeometry.MediaType));
  Memo1.Lines.Add('Дорожек на цилиндре: '+inttostr(DiskGeometry.TracksPerCylinder));
  Memo1.Lines.Add('Cекторов на дорожке: '+inttostr(DiskGeometry.SectorsPerTrack));
  Memo1.Lines.Add('Байт в секторе: '+inttostr(DiskGeometry.BytesPerSector));
  //считываем MBR расположенный с 0 по 446 байт нулевого сектора
  SetLength(buf,447);
  if ReadFile(hDisk,buf[0],447,br,nil) then  //НЕ РАБОТАЕТ
  ShowMEssage('Успешно');
  // FileRead(hDisk,buf,447); // ЭТО ФУНКЦИЯ НАДСТРОЙКА НАД WinAPI в DELPHI тоже не работает
end;

hDisk: THandle;

type
  TDiskGeometry = packed record
  Cylinders: Int64;           // количество цилиндров
  MediaType: DWORD;           // тип носителя
  TracksPerCylinder: DWORD;   // дорожек на цилиндре
  SectorsPerTrack: DWORD;     // секторов на дорожке
  BytesPerSector: DWORD;      // байт в секторе
  end;
 
procedure TForm1.FormShow(Sender: TObject);
var
 i: integer;
 br: DWORD;
 buf: array of byte;
 countBuf: DWORD;
 str: string;
 res: cardinal;
 ResDefDisk: boolean;
 junk: DWORD;
 DiskGeometry: TDiskGeometry;
 hDisk: THandle;
begin
  str := '';
  //Drive := 0;
  countBuf := 447; //только MBR, таблица разделов пока не нужна
  hDisk := CreateFile(PChar('\\.\PHYSICALDRIVE0'),
  GENERIC_READ, FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if hDisk = INVALID_HANDLE_VALUE then Exit;
  ResDefDisk := DeviceIoControl(hDisk,IOCTL_DISK_GET_DRIVE_GEOMETRY,nil,0,
    @DiskGeometry,SizeOf(TDiskGeometry),junk,nil) and (junk = SizeOf(TDiskGeometry));
  Memo1.Lines.Add('Кол-во цилиндров: '+inttostr(DiskGeometry.Cylinders));
  Memo1.Lines.Add('Тип носителя: '+inttostr(DiskGeometry.MediaType));
  Memo1.Lines.Add('Дорожек на цилиндре: '+inttostr(DiskGeometry.TracksPerCylinder));
  Memo1.Lines.Add('Cекторов на дорожке: '+inttostr(DiskGeometry.SectorsPerTrack));
  Memo1.Lines.Add('Байт в секторе: '+inttostr(DiskGeometry.BytesPerSector));
  SetLength(buf,447);
  //Так-то устанавливать указатель не нужно, потому что при открытии (создании) файла (диска)
  //указатель позиционируется на первый байт
  res := SetFIlePointer(hDisk, DiskGeometry.BytesPerSector,nil, FILE_BEGIN);
  if ReadFile(hDisk,buf[0],Length(buf),br,nil) then
  ShowMEssage('Успешно');
  for I := 0 to 446 do begin
    str := str + inttohex(buf[i],2); //в buf по прежнему нули
  end;
 // FileRead(hDisk_,buf,447);  ТОЖЕ НЕ РАБОТАЕТ
  Memo2.Lines.Add(str)
end;