[lmikle]

Код:

procedure TForm1.N5Click(Sender: TObject);
var
  ACount : Integer;
  ATotal : Integer;
begin
  ACount := 0;
  ATotal := StrToInt(Edit1.Text);
  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;
            Inc(ACount);
          end;
      If ACount >= ATotal Then Break;
      datamodule2.VednaOtgruzTable.Next;
    end;
end;

Годится?