[hitman797]

Originally Posted by audiofeel

I. very interesting, but nothing is clear
-------
II. above in the posts you wrote that you may need to rearrange the procedures and then the ColorBox will appear where necessary. I finally found this place. you need to Align(Right); remove to the end.
-------
III. you need to think something about calculating the size of the components. we are not on the components page. probably do something like that. I don't know...

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if TCheckBox(Sender).Checked then  sum3:=sum3+TCheckBox(Sender).Tag/100 else
sum3:=sum3-TCheckBox(Sender).Tag/100;
end;

[Component0]
Name=Core files
Size=30000

[Component1]
Name=Need For Speed Underground
Size=30000

[Component2]
Name=Need For Speed Underground 2
Size=30000

[Component3]
Name=Need For Speed Most Wanted 05'
Size=30000

[Component4]
Name=Need For Speed Carbon
Size=30000

[Component5]
Name=Need For Speed Pro Street
Size=30000

[Component6]
Name=Need For Speed Undercover
Size=30000

[Component7]
Name=Need For Speed Shift
Size=30000

[Component8]
Name=Need For Speed Hot Pursuit
Size=30000

[Component9]
Name=Need For Speed The Run
Size=30000

[Component10]
Name=Need For Speed Shift 2 Unleashed
Size=30000

[Component10]
Name=Need For Speed Most Wanted 12'
Size=30000

[Component11]
Name=Need For Speed Rivals
Size=30000

[Component12]
Name=Need For Speed 15'
Size=30000

function GetIniBool(const Section, Key: String; const Default: Boolean; const Filename: String): Boolean;
function GetIniInt(const Section, Key: String; const Default, Min, Max: Longint; const Filename: String): Longint;
function GetIniString(const Section, Key, Default, Filename: String): String;