Процедура добавления нового абонента.Нажатие кнопки на вкладке «Добавить» абонента

procedure TForm1.Button1Click(Sender: TObject);
begin
if (checkstr(edit1.Text,1)) or (length(edit1.Text)<>12) then begin showmessage('Ошибка ввода ИНН'); exit; end;
if (edit2.text='') or (checkstr(edit2.Text,3)) then begin showmessage('Ошибка ввода ФИО'); exit; end;
if (edit3.text='') then begin showmessage('Ошибка ввода адреса'); exit; end;
if (edit4.text='') or (checkstr(edit4.Text,3)) then begin showmessage('Ошибка ввода города'); exit; end;
if (combobox1.text='') then begin showmessage('Выберите сотовую компанию'); exit; end;
if (combobox2.text='') then begin showmessage('Выберите рег. оператора'); exit; end;
if (combobox3.text='') then begin showmessage('Выберите префикс'); exit; end;
if (checkstr(edit10.Text,1)) or (length(edit10.Text)<>7) then begin showmessage('Ошибка ввода телефона'); exit; end;

if adotable2.Locate('TNo;Pr',VarArrayOf([Edit10.Text,combobox3.Text]),[]) then
begin ShowMessage('Такой номер уже существует!'); exit; end;
if not adotable1.Locate('AbNo',Edit1.Text,[]) then
begin
adotable1.AppendRecord([edit1.Text,Edit2.Text,Edit3.Text]);
end;
adotable2.AppendRecord([edit10.Text,strtoint(combobox3.Text),edit1.Text,Edit4.Text]);
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit10.Clear;
combobox1.ItemIndex:=-1;
combobox2.Clear;
combobox3.Clear;
ShowMessage('Регистрация прошла успешно!');
end;

• Защита от дураков
• Процедура добавления
• Заполнение edit'ов