Manejo de Archivos Delphi 7

[napsterk89]

Hola, estoy haciendo un trabajo para la universidad, pero me he trabado con un error de código, si alguien me ayuda a encontrarlo se lo agradecería mucho

var
  Form2: TForm2;
  CAlta,CMedia,CBaja: integer;
  RAlta,RMedia,RBaja:Real;
implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button3Click(Sender: TObject);
begin
Form2.Close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Seek(Archivo,0);

While Not Eof(Archivo) DO
  Begin
  Read(Archivo,Res);

  IF (Res.Temporada='Alta') THEN
  Begin
  CAlta:= CAlta+1;
  RAlta:= RAlta+ Res.Tarifa;
  end
  else

    IF (Res.Temporada='Media') THEN
    Begin
    CMedia:= CMedia+1;
    RMedia:= RMedia+ Res.Tarifa;
    End
    else

      IF (Res.Temporada='Baja') THEN
      Begin
      RBaja:= RBaja+ Res.Tarifa;
      CBaja:= CBaja+1;
      End;

End;



Listbox1.items.Add(IntToStr(CAlta));
  End;





end.

He recorrido el prog con F7 y me di cuenta que cuando necesita comprobar el End Of File me dice "Eof=inaccesible value" entonces directamente pasa al end, por lo tanto las variables no toman los valores. La verdad es que me encuentro desorientado.