Код:
if (DataModule4.ADOTable2.FieldByName('Kolichestvo').Value > StrToInt(Form10.Edit3.Text))
then
begin
DataModule4.ADOTable2.FieldByName('Kolichestvo').Value:=DataModule4.ADOTable2.FieldByName('Kolichestvo').Value-StrToInt(Form10.Edit3.Text);
end else begin
ShowMessage ('Недостаточно лекарств')
end;
-------
так этим кодом разобрался с первой проблемой