Poner color background del form cuando pierde el foco

[roman]

No es necesario usar un procedimiento recursivo si recorres la colección Components en lugar de Controls. Components contiene todas las componentes insertadas en el formulario durante el diseño.

Para evitar tanto if puedes usar RTTI (Run Time Type Info):

Código Delphi [-]
uses
  TypInfo;

procedure Form1.Pintar;
var
  I: Integer;
  Info: PPropInfo;

begin
  for I := 0 to ComponentCount -1 do
  begin
    Info := GetPropInfo(Components[i], 'Color');
    if Info <> nil then SetPropValue(Components[i], 'Color', clGreen);
  end;
end;

De cualquier forma tendrás el problema de que precisamente hay componentes como un TButton que no pueden pintarse. Creo que tu método de la transparencia estaba mejor.

// Saludos

[Cabanyaler]

... bueno, en principio y hasta ahora no he encontrado nada mejor, no obstante si encuentreo algo mejor, lo publicaré, tato si es encontrado por mi, tanto si es presentado por algún compañero.
Gracias a todos.