Author: Jonas Bilinkevicius

I want to color form controls at runtime without knowing beforehand how many and 
what controls there are.

Answer:

1   type
2     TControlCracker = class(TControl);
3   
4   procedure TForm1.Button1Click(Sender: TObject);
5   var
6     I: Integer;
7   begin
8     for I := 0 to ComponentCount - 1 do
9       if Components[I] is TControl then
10        TControlCracker(Components[I]).Color := clLime;
11  end;