[Gad99]

Код:

procedure TForm1.N5Click(Sender: TObject);
var
  searchResult : TSearchRec;
begin
  SetCurrentDir(CurDir+'\data');
  if FindFirst('*.tms', faAnyFile, searchResult) = 0 then
  begin
    repeat
      AssignFile(Anketa1,searchResult.Name);
      {$IOChecks off}
      Reset(Anketa1);
      Read(Anketa1,Anketa);
      CloseFile(Anketa1);
      {$IOChecks on}
      Load1.ListBox1.Items.Add(Anketa.FIO[1]+' '+Anketa.FIO[2]);
    until FindNext(searchResult) <> 0;
  Load1.Visible := True;
  FindClose(searchResult);
  End;
end;

В данном представлении все работает абсолютно нормально но если включить проверку ошибок то вылазит I/O error 183 при выполнении Reset, Read или Close операторов