[ZaaaK]

Здраствуйте,форумчане!
Такая вот проблемка...есть БД в Paradox есть DataSourse, Query и DBGrid все в 1 штука...я открываю базу, добавляю в нее строчку с информацией программным путем,сохраняю базу...проблема в том, что всегда 1 запись в базе выходит...т.е. не переходит на следующую запись...я что-то в недоумении..прилагаю код...

Код:

   DataSource8.DataSet:=Query1;
   DBGrid1.DataSource:=DataSource8;

   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('Select * from kurs_predm.db');
   Query1.Open;

   Query1.Edit;
   //Query1.Next;

 Query1.FieldByName('Counter').asstring:=inttostr(Query1.RecordCount+1);
 Query1.FieldByName('NameDis').asstring:=ds;
 Query1.FieldByName('Student').asstring:=Fam;
 Query1.FieldByName('Ocenka').asstring:=ocen;
 Query1.FieldByName('Otvet').asstring:=IntToStr(shet-1)+'/'+IntToStr(kol_v);
 Query1.FieldByName('Data').asstring:=DateToStr(date);

 // отключение отображения записей в визуальных компонентах
 Query1.DisableControls;
 Query1.First;
 for n:=1 to Query1.RecordCount+1 do
  begin
   // обработка записи набора данных Table1
   Query1.Next;
  end;
 // включение отображения записей в визуальных компонентах
 Query1.EnableControls;
  

создал поле счетчика, чтоб самому наращивать количество записей...думал что надежнее...поэтому воткнул такую строчку

Query1.FieldByName('Counter').asstring:=inttostr(Q uery1.RecordCount+1);

но блин всегда возвращает 2...HELP!!!