procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    CanClose := False;
    PGMenu.ActivePageIndex := 7;

    if ImageExitWithSave.Tag = 1 then
    begin
        CanClose := Application.MessageBox('Вы уверены, что хотите закрыть программу, сохранив данные?','Закрытие программы', MB_YESNO + MB_ICONQUESTION) = IDYES;
        if not CanClose then
            ImageExitWithSave.Tag := 0;
        // TODO : Добавить сохранение
    end
    else
        if ImageExit.Tag = 1 then
        begin
            CanClose := Application.MessageBox('Вы уверены, что хотите закрыть программу без сохранения?','Закрытие программы', MB_YESNO + MB_ICONQUESTION) = IDYES;
            if not CanClose then
                ImageExit.Tag := 0;
        end;
end;