[BDWONG]

Puedes darle una revisada a la funciones BlockRead y BlockWrite estas no necesitan definr un File of type

mira te dejo un pequeño ejemplo que hice

Código Delphi [-]
uses
  SysUtils,Types ;

type
  TVector = record
      punto: TPoint;
      color:string[50];
  end;
  TTexto = record
     pos : TPoint;
     text :String[50];
     col: integer;
  end;
var
  myFile : file;
  vec,vecLeido :TVector;
  texto :TTexto;
begin
  //asignamos valores al record vec de tipo TVector
  vec.punto.X:=10;
  vec.punto.Y:=18;
  vec.color:='rojo';

  //asociamos el fichero con la variable
  assignfile(myFile,'prueba.dat');

  //Escribimos el bloque de memoria
  rewrite(myFile,SizeOf(vec));
  BlockWrite(myFile,vec,1);
  closefile(myFile);

  //Leemos el bloque de memoria
  Reset(myFile,SizeOf(vec));
  BlockRead(myFile,vecLeido,1);
  closeFile(myFile);

  //Escribimos los valores
  Writeln(vecLeido.punto.x);
  Writeln(vecLeido.punto.y);
  Writeln(vecLeido.color);
  Readln;

end.

link de ayuda:
http://www.delphibasics.co.uk/RTL.asp?Name=BlockWrite
http://www.delphibasics.co.uk/RTL.asp?Name=BlockRead

Saludos...