[Vayrus]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
I:Integer;
Temp: TComponent;
begin
for I:=0 to ComponentCount-1 do
begin
Temp := Components[i];
if (Temp is TEdit) then
begin
if (Temp as TEdit).Focused then
(Temp as TEdit).Color := clRed else
(Temp as TEdit).Color := clWindow;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=100;
Application.ProcessMessages;
end;