[lmikle]

Код:

if DataModule2.BookDS.FieldByName('Всего').AsInteger > DataModule2.BookDS.FieldByName('На руках').AsInteger Then
begin
  DataModule2.BookDS.Edit;
  DataModule2.BookDS.FieldValues['На руках']:=DataModule2.BookDSDSDesigner7+1;
end;