Код:
If (DataModule4.ADOTable2.FieldByName('Kolichestvo').Value < StrToInt(Form10.Edit3.Text)) then
begin
ShowMessage('Нехватает лекарств');
exit;
end;
А вообще, лучше использовать отдельный запрос или StoredProcedure. Locate не всегда работает хорошо.