eof(Pplik) problem

Mam taka funkcje:

function SlowoWSlowniku(Slowo: String): Boolean;
var
  b: Boolean;
  wzorzec: String;
begin
  AssignFile(Slownik,Form1.OpenDialog1.FileName);
  Result:= False;
  b:= True;
  while (not eof(Slownik)) and (b) do
    begin
    readln(slownik,wzorzec);
    if wzorzec= Slowo then
      begin
      b:= False;
      end;
    end;
  if not b then
    Result:= True;
  CloseFile(Slownik);
end;

Wczesniej jest zmienna globalna Slownik: TextFile.
Wywala mi blad przy while:
I/O Error 104
Moglby mi ktos pomoc???

Po AssignFile() wstaw Reset(Slownik);