Ayuda con TFileStream

[JF Sebastian]

Estimados foreros:
Tengo el problema de crear un archivo de mas de 2GB de tamaño y debo emplear la rutina seek. El problema es que por defecto esta rutina no sirve para estos tamaños de archivo por lo que he decidido probar con TFileStream.

Se trata de usar TFileStream en lugar de lo siguiente. Unas lineas de codigo por vuestra parte me iria de perlas.

Código Delphi [-]
const 
  max = 1024*1024;
type 
  TArr = array [1..max] of double;
var 
  buf:TArr;
  F: File of TArr;
 
procedure CreaArchivo;
var i: integer;
begin
  AssignFile(F,'C:\1.tmp');
  rewrite(F);
  for i := 1 to 1024 do write(F,buf);
  closefile(F);
end;
 
procedure Busca(pos: Integer);
begin
  AssignFile(F,'C:\1.tmp');
  reset(F);
  Seek(F,Pos);  /// <---  Error
  read(F,buf);
  closefile(F);
end;

Muchas gracias