[Kirill1987]

Есть кнопка которая по щелчку проставляет, во всех строках поле перевозчик в значение компания, если поле расстояние <=200
Надо сделать чтобы значение компания ставилось не во всех строках, а в определенном количестве которое считывается из поля edit1
Понимаю что надо в цикл запихнуть счетчик, но ни в какаю не получается, вот код кнопки, помогите, а то ни как не получается

Код:

procedure TForm1.N5Click(Sender: TObject);
begin
datamodule2.VednaOtgruzTable.First;
while not datamodule2.VednaOtgruzTable.eof do
begin
if datamodule2.VednaOtgruzTable.FieldByName('Расстояние').AsVariant<=200
then
  begin
  datamodule2.VednaOtgruzTable.Edit;
  datamodule2.VednaOtgruzTable.FieldByName('Перевозчик').AsString:='Компания';
  datamodule2.VednaOtgruzTable.Post;
  end;
  datamodule2.VednaOtgruzTable.Next;
  end;
  end;