Function Exist(FileName : Str12):Boolean;
Var
  Fil : File;
Begin
Assign(Fil,FileName);
{$I-}
Reset(Fil);
Close(Fil);
{$I+}
Exist := (IOResult = 0);
End; {Exist}