How to get file size to fileread?

[oxygen]

I'm diving in this stuff about two hours but cannot find how to get the size of file to be opened by fileread:

FileHandle : Integer;
fSize: Integer;
begin
      FileHandle := FileOpen('b:\html.txt', fmOpenRead);
      fSize := fileSize(FileHandle);
      FileRead(FileHandle, buffer , fSize );
end;

I need to read the complete file and FileRead seems to be best suitable for me.

I would like to avoid the fileSize function because it has different type then the FileRead input argument no 3.

[oxygen]

I found solution

      FileHandle := FileOpen('b:\html\' + SubDirs[m] + '\' + FileList[i], fmOpenRead);
      fSize := FileSeek(FileHandle,0,soFromEnd);
      FileSeek(FileHandle,0,soFromBeginning);
      setLength(buffer, fSize);
      FileRead(FileHandle, buffer , fSize );