[R.i.m.s.k.y.]

Raf-9600, ща за 15-20 минут накидаю примерчик

Код:

[Components]
Name: "Game1"; Description: Игра 1; Flags: exclusive 
Name: "Game2"; Description: Игра 2; Flags: exclusive 
Name: "Item"; Description: Пункт;

[*Code]
var
game1, game2, Item : integer;
game1s, game2s, Items : string;

procedure CheckComponents;
begin
if IsComponentSelected('Game1') then begin
  with WizardForm.ComponentsList do begin
    ItemCaption[item] := items + 'Game1s';
  end; end;//with WizardForm.ComponentsList do begin
if IsComponentSelected('Game2') then begin
  with WizardForm.ComponentsList do begin
    ItemCaption[item] := items + 'Game2s';
  end; end;//with WizardForm.ComponentsList do begin
WizardForm.ComponentsList.Repaint;
end;

procedure ComponentOnClick(Sender: TObject);
begin
CheckComponents;
end;

procedure InitializeWizard()
begin
...
  game1:= WizardForm.ComponentsList.Items.IndexOf('Игра 1');  game1s:= WizardForm.ComponentsList.ItemCaption[game1];
  game2:= WizardForm.ComponentsList.Items.IndexOf('Игра 2');  game1s:= WizardForm.ComponentsList.ItemCaption[game2];
  item:= WizardForm.ComponentsList.Items.IndexOf('Пункт');  items:= WizardForm.ComponentsList.ItemCaption[item];

  WizardForm.ComponentsList.OnClick := @ComponentOnClick; CheckComponents;
...
end;

идеологически верно но могут быть пропущенные end'ы, кавыки, сам расставишь

щаз еще Лександр скажет "надо использовать case"
Да, н-н-надо, но я не знаю как перехватить номер нажатого компонента