[Sabotender]

Код:

procedure TForm2.Button1Click(Sender: TObject);
var a,b,c: integer;
f:boolean;
buttonSelected : Integer;
begin
buttonSelected:=MessageDlg('Вы действительно хотите обновить склад',mtInformation,[mbYes,mbCancel], 0);
 if buttonSelected = mrYes then begin
  DBGrid1.SetFocus;
  dm.Prixod.First;
    while not dm.prixod.Eof do
    begin
    f:=true;
      dm.tovar.First;
        while not (dm.tovar.Eof) and (f) do
      begin
       if DM.Tovar['TID'] = dm.prixod['PID'] then
       begin
        dm.Tovar.Edit;
        dm.Tovar['TID']:=dm.Prixod['PID'];
        dm.Tovar['TName']:=dm.Prixod['PName'];
        dm.Tovar['TPriceZak']:=dm.Prixod['PriceZak'];
        dm.Tovar['TPriceProd']:=0;
        a:=StrToInt(DM.Tovar['TKolvo']);
        b:=StrToInt(dm.prixod['PKolPr']);
        c:=a+b;
        dm.Tovar['TKolvo']:=IntToStr(c);
        dm.Tovar.Post;
        f:=false;
       end;
       dm.tovar.next;
      end;
       if f then
        begin
        dm.Tovar.append;
        dm.Tovar['TID']:=dm.Prixod['PID'];
        dm.Tovar['TName']:=dm.Prixod['PName'];
        dm.Tovar['TPriceZak']:=dm.Prixod['PriceZak'];
        dm.Tovar['TKolvo']:=dm.Prixod['PKolPr'];
        dm.Tovar.Post;
        end;
       dm.prixod.Next;
    end;
    end;
end;

вот что я хотел ^_^