procedure TEditForm.DeleteButtonClick(Sender: TObject);
var
    SubscriberNumber: integer;
begin
    SubscriberNumber := NumberArray[SubscribersStringGrid.Row - 1];
    deleteSubscriber(SubscriberNumber);
    ShowButtonClick(Sender);
end;