[cotseec]

Код:

var
  OpenDialog  :TOpenDialog;
  kt:Cardinal;
  filehandle: THandle;
  buf: array of word;
begin
  openDialog := TOpenDialog.Create(self);
  if openDialog.Execute
  then begin
     filehandle :=CreateFile(pChar(openDialog.FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
     size :=  (GetFileSize(filehandle,nil) div SizeOf(word))+1;
     SetLength(buf,size);
     ReadFile(filehandle,buf[0],size,kt,nil);
     CloseHandle(FileHandle);
  end;
  openDialog.Free;
end;

а почему бы не использовать TFileStream ?
и для помощи