Capturar El Evento Del Cambio De Foco En Un Form

[murci]

¡¡¡¡¡ EXACTO !!!!!
Anoche en casa hice lo mismo y.... tachan ¡¡¡ VICTORIA !!!

El código de la unidad para que los TWinControl cambien de color y recuperen el original cuando deje el foco es el siguiente:

procedure TFormPadre.ActiveControlChanged(sender : TObject);
var
  I : Integer;
begin
  for I:= 0 to ControlCount -1 do begin
    if Controls[i] is TWinControl then begin
      if (Controls[i] as TWinControl).Focused then
        Controls[i].Color := FCActivo
      else
        Controls[i].Color := clWindow;
    end;
  end;
end;

Asi de sencillito.

Un saludo y muchisimas gracias por tu inestimable ayuda.