#
# var n:double;
# begin
# if not (Length(Trim(Edit5.Text)) > 1) then begin
# Application.MessageBox(PChar('Введите'),'123',MB_OK);
# Abort;
# end;
# if not trystrtofloat(Edit6.text, n) then begin
# Application.MessageBox(PChar('OOO'),'321',MB_OK); // сообщение
# Abort;
# end;
# ADOTable1.Insert;
# AdoTable12.FieldByName('1').Value := Edit13.Text;
# AdoTable12.FieldByName('2').Value := Edit23.Text;
# AdoTable12.FieldByName('3').Value := DateTimePicker11.Date;
# AdoTable12.FieldByName('4').Value := DBLookupComboBox11.KeyValue;