помогите разобраться с ошибкой. Опции

[iFlight]

Здравствуйте, помоги пожалуйсто разобраться в чём проблемма, при работе программы выдаётся ошибка,причём если скомпилировать программа выполяется верно, но переодически вылазит окно с ошибкой:

Project Project1.exe raised exeption class EInOutError with message 'I/O error 103'.Process stopped.Use Step or run to continue

Подчёркивает начало цикла While в следующем куске кода:

procedure TForm1.ComboBox2Select(Sender: TObject);
  var  Wear:TShmot;
       Par:string;
       poch,zar:Real;
begin
 Edit3.Text:=IntToStr(80);
 AssignFile(f,'wear.db');
 Reset(f);
 While not EOF(f) do
 Begin
  Read(f,Wear);
  If Wear.name=ComboBox2.Text then
   Begin
    Par:=wear.name+' ['+IntToStr(wear.param.lvl)+']'+#13+'Раса:'+wear.param.rassa+#13;
     With wear do
      Begin
       With param do
        Begin

Причём перед этим, в другой процедуре уже выполняется такой же цикл и никаких ошибок не выдаёт, да и эту ошибку раньше не выдавало...
Помогите разобраться что это и как с этим бороться. Зарание спасибо:)

Сообщение отредактировано: iFlight - 2.07.2009 10:04

[iFlight]

Wear.db весит 45.8 кб,пока что, но будет с пол метра наверное, и записей там куча,сейчас где то около 200(

Я бы с радостью перешёл, но пока что не умею..