E/A Fehler 103

[Pseudemys Nelsoni]

moin,

wo ist hier der fehler?

Delphi-Quellcode:

function TDataBase.AccountExists(const ANickname: string): boolean;
var
  DBFileItem: TDBFileItem;
begin
  result := false;
  AssignFile(FDBFile, FFilePath);
  try
    if FileExists(FFilePath) then
      ReSet(FDBFile)
    else exit;
    while not EOF(FDBFile) do
    begin
      read(FDBFile, DBFileItem);
      result := DBFileItem.Nickname = ANickname;
      if result then exit;
    end;
  finally
    CloseFile(FDBFile);
  end;
end;

der fehler kommt nur wenn die datei noch nicht existiert, wenn sie existiert kommt der fehler nicht, aber ich finde nicht wo der fehler da ist?