[killmore]

Код:

begin
 adotable2.First;
 adoquery2.First;
 while not adotable2.Eof do
   idz:=ADOtable2.FieldByName('ID_KNIGI').AsInteger;
    begin
      while not adoquery2.Eof do
      begin
      idz2:=ADOquery2.FieldByName('ID_KNIGI').AsInteger;
      if idz=idz2 then
      begin
      adotable2.FieldByName('nalichie').AsInteger:=adotable2.FieldByName('nalichie').AsInteger-adoquery2.FieldByName('koltov').AsInteger;
      end;
      adoquery2.Next
      end;
     adotable2.Next;
    end;

 end;

вот что у меня пока вышло но он не останавдивается ...