Ayuda con archivos binarios usando TFileStream

[ecfisa]

Hola Eze32 , bienvenido a Club Delphi

Como a todos los ingresan te invitamos a que leas nuestra guía de estilo.

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
var
  l,t,w,h: Integer;
begin
  with TFileStream.Create(ExtractFilePath(Application.ExeName)+'Config.dat', fmOpenRead) do
  try
    Seek(0, soFromBeginning);
    Read(l, SizeOf(integer));
    Read(t, SizeOf(integer));
    Read(w, SizeOf(integer));
    Read(h, SizeOf(integer));
    Left   := l;
    Top    := t;
    Width  := w;
    Height := h
  finally
    Free
  end;
end;

...

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with TFileStream.Create(ExtractFilePath(Application.ExeName)+'Config.dat', fmCreate) do
  try
    Write(Left, SizeOf(integer));
    Write(Top, SizeOf(integer));
    Write(Width, SizeOf(integer));
    Write(Height, SizeOf(integer))
  finally
    Free
  end;
end;

...

Saludos.

Edito: ¿ No te resulta mas sencillo hacerlo con el registro de windows ?