[AleD]

Код:

var
  f: Cardinal;
  fSize: Cardinal;
  buf: Pointer;
begin
  f := FileOpen('file.dat');
  try
    fSize := FileSeek(f, 0, 2);
    FileSeek(f, 0, 0);
    buf := AllocMem(fSize);
    try
      FileRead(f, buf, fSize);
      //здесь работа с buf
    finally
      FreeMem(buf, fSize);
      //здесь уже buf освобожден
    end;
  finally
    FileClose(f);
  end;
end;

написал по памяти, но работать должён