[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  I: Integer;
  LogList: TStringList;
begin
  if CurStep = ssInstall then
  begin
    LogList := TStringList.Create;
    try
      LogList.Add('Selected components:');
      for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do
        if WizardForm.ComponentsList.Checked[I] then
          LogList.Add('Component: ' + WizardForm.ComponentsList.ItemCaption[I]);

      LogList.SaveToFile(ExpandConstant('{userdocs}\MySetupComponents.log'));
    finally
      LogList.Free;
    end;
  end;
end;