procedure gSetVersion;
begin
  case gVersionPage.SelectedValueIndex of
    0: gInstallArea := 'install_a';
    1: gInstallArea := 'install_b';
    2: gInstallArea := 'install_c';
  end
  WizardForm.DirEdit.Text := WizardDirValue + '\' + gInstallArea;
end;