Таблица размещения файлов FAT в FAT32

 if ReadFile(DiskHandle, Buf, sizeof(buf),nil) then

procedure TForm1.FATBtnClick(Sender: TObject);
var
  DiskHandle: THandle;
  buf: array of Byte;
  i, j: Integer;
  FATValue: DWORD;
begin
     SetLength(buf,512);
     DiskHandle := CreateFile('\.\PhysicalDrive0', GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
     try
        SetFilePointer(DiskHandle,512, nil, FILE_BEGIN);
        if ReadFile(DiskHandle, Buf, sizeof(buf),nil) then
         begin
               for i := 0 to (512 - 4) div 4 do
                begin
                     FATValue := PDWORD(@buf[i*4])^;
                     if FATValue <> $FFFFFFF8 then
                      begin
                           Memo1.Lines.Add(Format('FAT[%d] = %8.8x', [i, FATValue]));
                      end
                     else
                      begin
                           Memo1.Lines.Add(Format('FAT[%d] = End of cluster chain', [i]));
                      end;
                end;
         end;
        finally
        CloseHandle(DiskHandle);
     end;
end;