[svent0vit]

Выделяю окно под курсором:

GetCursorPos(Pos);
WND:=WindowFromPoint(Pos);
GetWindowRect(WND,wRect);
screenDC:=GetDC(0);

Canvas.Brush.Color:=clRed;
Canvas.Brush.Style:=bsSolid;
rBound:=CreateRectRgn(wRect.Left,wRect.Top,wRect.R ight,wRect.Bottom);
FrameRgn(screenDC,rBound,Canvas.Brush.Handle,2,2);

Как снять выделение с уже неактивного окна?
Никакие рефрешы, апдейты, репейнты и sendmessage(WM_PAINT) не помогают.

[DungeonLords]

В компоненте DXTimer(DelphiX) есть свойство ActiveOnly. Оно означает, что таймер будет октивен всегда! Ну а дальше дело техники.