Процедуры удаления телефонного номера:Нажатие кнопки на форме 1

procedure TForm1.Button2Click(Sender: TObject);
begin
if (checkstr(edit12.Text,1)) or (checkstr(edit9.Text,1)) or (length(edit12.Text)<>3) or (length(edit9.Text)<>7) then begin showmessage('Ошибка ввода телефона'); exit; end;
//Ищем телефон
if adotable2.Locate('TNo;Pr',VarArrayOf([Edit9.Text,edit12.Text]),[]) then
begin
form2.show;
end else ShowMessage('Телефон не найден!');
end;

procedure TForm2.FormShow(Sender: TObject);
begin
form1.Enabled:=false;
end;

procedure TForm2.FormHide(Sender: TObject);
begin
form1.Enabled:=true;
end;

нажатие кнопки на форме 4

procedure TForm2.Button1Click(Sender: TObject);
var
inn:shortstring;
begin
if LowerCase(edit1.Text)='delete' then
begin
//Извлекаем ИНН
inn:=form1.adotable2.FieldByName('AbNo').AsString;
form1.adotable2.Delete;
//Если больше нет телефонов с таким ИНН
if not form1.adotable2.Locate('AbNo',inn,[]) then
begin
form1.adotable1.Locate('AbNo',inn,[]);
//Удаляем человека
form1.adotable1.Delete;
end;
showmessage('Удалено!');
edit1.clear;
form1.edit12.Clear;
form1.edit9.Clear;
form1.Enabled:=true;
form2.Hide;
end else showmessage('Строка введена не верно!');
end;

• Информация о филателистах
• Заполнение комбобоксов
• Поиск по Филателистам