[[eduarcol]]

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
         //Asegura la recursividad
         if TWinControl(Ctr.Controls[nIdx]).ControlCount > 0 then
            Pintar(TWinControl(Ctr.Controls[nIdx]));
      end;
   end;
end;