Capturar El Evento Del Cambio De Foco En Un Form

[Descendents]

Eme funciona en mi delphi 7.Ponle algunos edits y pon esto en una unidad nueva.
Pon almenos 2 edits, porque pongo un numero en edit2.caption, sino pues cambialo.
No acepta showmessage dentro del procedure ,me da error por todas partes.Supongo porque cambia el foco infinitas veces al aparecer un showmessage cambia el foco y llama otra vez al evento y asi y hace un bucle infinito.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
   procedure ActiveControlChanged(Sender: TObject);
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;

implementation

{$R *.dfm}



procedure TForm1.ActiveControlChanged(Sender: TObject);
begin
 i := i+1;
 edit2.Text := inttostr(i);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := ActiveControlChanged;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Screen.OnActiveControlChange := nil;
end;

end.

Saludos

[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.

[murci]

PD:
FCActivo es una propiedad (TColor) privada que declaro en el Form para el tema de configuracion posterior del usuario.