[kotyarko@fb]

проверка по индексу компонента »

Нуу, это какой-то грубый пример. Рациональнее уже сделать циклом:

Код:

Procedure CurStepChanged(CurStep: TSetupStep);
var
 I: Integer;
begin
 if CurStep = ssDone then
 begin
  for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do
  begin
   if WizardForm.ComponentsList.Checked[i] then
    SaveStringToFile(ExpandConstant('{app}\components.txt'), WizardForm.ComponentsList.ItemCaption[i] + #13#10, True);
  end;
 end;
end;