Программно переключить закладки TabControl

[Человек_Борща]

Всю немогу То что я скинул более чем достаточно!
Ты case ... of не знаешь? O_O

[ArtGrek]

Сообщение от Человек_Борща

Ты case ... of не знаешь? O_O

знаю) немного не поиму что у тебя там происходит, может объясниш последователност на словах

P.S. TabControl1.TabIndex - ето то что тебе надо

[Человек_Борща]

Вопрос решён:

procedure TAddAppForm.AppyBtnClick(Sender: TObject);
begin
  if (AppExePathEdit.Text = '') or (NameInAppsListEdit.Text = '') then
  begin
    case HLR_MsgBox(RsMsgFullExePathNotExists, MB_OK or MB_ICONWARNING) of
      IDOK: //MB_OK
        begin
          if (AppExePathEdit.Text = '') and (NameInAppsListEdit.Text = '') then
          begin
            AppAddPages.TabIndex := 0;
          end;

          if (AppExePathEdit.Text = '') then
          begin
            AppAddPages.TabIndex := 0;
            AppExePathEdit.SetFocus;
          end;

          if (NameInAppsListEdit.Text = '') then
          begin
            AppAddPages.TabIndex := 0;
            NameInAppsListEdit.SetFocus;
          end;
          Exit;
        end;
    end;
  end
  else
  begin
    AddAppForm.ModalResult := mrOk;
  end;
end;

Проблема оказалась в том что я обработывал нажатие того что MessageBox вернуть не может.

Вопос решён, спасибо. ArtGrek был прав. Что Что-то не срабатывает. Надо заканчивать с посиделками в глубокой ночи и сильной усталости=)