podrias hacer un procedimiento recursivo donde tu le pases el formulario y el te pinte todos los controles de su interior:
Código Delphi
[-]
procedure Pintar(Ctr: TWinControl);
var
nIdx: Integer;
begin
for nIdx := 0 to Ctr.ControlCount - 1 do
begin
if Ctr.Controls[nIdx] is TEdit then
begin
TEdit(Ctr.Controls[nIdx]).Color := ;
end
else if Ctr.Controls[nIdx] is TButton then
begin
TButton(Ctr.Controls[nIdx]).Color := ;
end
else if Ctr.Controls[nIdx] is TWinControl then
begin
if TWinControl(Ctr.Controls[nIdx]).ControlCount > 0 then
Pintar(TWinControl(Ctr.Controls[nIdx]));
end;
end;
end;