procedure TAddForm.AddButtonClick(Sender: TObject);

var
    TelephoneNumber: TTelephoneNumber;
    Surname: TSurname;
    Name: TName;
    Patronymic: TPatronymic;
    City: TCity;
    DateOfPay: TDateOfPay;
    SameSubscriberIndex: integer;
    RequiredSubscriber: TRequiredSubscriber;
begin
    // считывание данныз с формы в нужном формате
    TelephoneNumber := toTelephoneNumber(TelephoneEdit.text);
    Surname := toSurname(SurnameEdit.Text);
    Name := toName(NameEdit.Text);
    Patronymic := toPatronymic(PatronymicEdit.Text);
    City := toCity(CityEdit.Text);
    DateOfPay := toDateOfPay(Now, PaymentEdit.value);
    TurnLabelsOff();  // вскрыть текущую надпись
    EditForm.getRequiredSubscriber(RequiredSubscriber,  TelephoneEdit.text, SurnameEdit.text, NameEdit.text,
                                PatronymicEdit.text, CityEdit.text); // получить обарзец для поиска
    if isExist(RequiredSubscriber, SameSubscriberIndex) then // проверка на повтор
        SubscriberExistsLabel.Visible := true // предупреждение о существовании
    else
    begin
        if not areEditsCorrect() then // проверка на корректность ввода
            WrongDataLabel.Visible := true // предупреждение о некорректном вводе
        else
        begin
            write(TelephoneNumber, Surname, Name, Patronymic, City, DateofPay); // запись в файл
            SubscriberAddedLabel.Visible := true; // информация об успешном сохранении
        end;
    end;
end;