Stardusts

procedure TMainForm.EnterButtonOnClick(Sender: TObject);
var
  Forms: array of TForm;
begin
  Forms := [RegistrarForm, ManagerForm, DoctorForm, AccountantForm]; // ваши формы
  Forms[Combobox.ItemIndex].ShowModal();
end;