Чтение из файла

[virtuhay266]

Привет! Есть такой код:

procedure TForm1.Button2Click(Sender: TObject);
var
filename1,filename2:TFileName;
handlefile1,handlefile2:THandle;
reopenbuffer:TOFStruct;
buf:array of byte;
SizeOfFile1,SizeOfFile2:dword;
NumberOfBytesRead:dword;
begin
if opendialog1.Execute then
  begin
     filename2:=opendialog1.FileName;
     handlefile2:=OpenFile(@(ansistring(opendialog1.filename)[1]),reopenbuffer,of_Read);
     SizeOfFile1:=getfilesize(handlefile2,@HighSizeOfFile);
     setlength(buf,SizeOfFile1);
     ReadFile(handlefile1,buf,SizeOfFile1,NumberOfBytesRead,nil);
     closehandle(handlefile2);
   end;
end;

В итоге, ReadFile возвращает False, хотя _lread все читает нормально.
Скорее всего, я напортачил с буфером. Помогите разобраться.