if a(в данном случае Edit1)<=0 then begin MessageDlg('Ошибка ввода данных!',mtError,[mbOK],0); exit; end;
