Рамка выделяемого окна

[yohohox]

Добрый день Уважаемые.

Подмогите пожалуйста разобраться.

Задача: При наведении на какое-либо окно, оно выделяется полупрозрачным цветом.

Делаю следующим образом:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := True;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Timer1.Enabled := False;
end;
 
procedure FrameWindow(Wnd: HWnd);
var
  nRect: TRect;
begin
 
  // получаю размер и положение окна
  GetWindowRect(Wnd, nRect);
 
  // устанавливаю размеры для формы
  Form1.Left := nRect.Left;
  Form1.Top := nRect.Top;
  Form1.Width := nRect.Right - nRect.Left;
  Form1.Height := nRect.Bottom - nRect.Top;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  hNewWnd: HWnd;
begin
 
  // получаем дескриптор окна под курсором
  hNewWnd := WindowFromPoint(Mouse.CursorPos);
 
  // показываю рамку вокруг окна
  FrameWindow(hNewWnd);
 
end;

Все почти работает как надо, но.. после выделения полного окна дальнейшие выделения внутри этого окна становится невозможным ибо все перекрыто. Как с этим бороться?

Прикладываю гифку для наглядности.

[Человек_Борща]

Как вариант, для окна учитывать тот факт что курсор все ещё находится в заголовке окна, если нет, то снимать оверлей и ставить на компонент окна.