Как отследить переход фокуса в приложении

Во всех странах мира люди хорошо знают и широко используют Windows, и только русские говорят, что он х##вый. Потому что только русские хорошо знают и широко используют это слово.

procedure TForm1.AppControlChange(Sender: TObject);
begin
  if Sender is TScreen then
    Caption := TScreen(Sender).ActiveForm.ActiveControl.name;
end;

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

Недавно добавленные исходники
• Animation Loaders 680 • DeLiKaTeS Tetris (Тетрис) 5 690 • TDictionary Custom Sort 7 645 • Fast Watermark Sources 7 336 • 3D Designer 10 543 • Sik Screen Capture 7 860 • Patch Maker 8 081 • Айболит (remote control) 8 144 • ListBox Drag & Drop 6 938 • Доска для игры Реверси 100 132 • Графические эффекты 8 201 • Рисование по маске 7 601 • Перетаскивание изображений 6 205 • Canvas Drawing 6 572 • Рисование Луны 6 494 • Поворот изображения 5 674 • Рисование стержней 4 598 • Paint on Shape 3 295 • Генератор кроссвордов 4 283 • Головоломка Paletto 3 423 • Теорема Монжа об окружностях 4 243 • Пазл Numbrix 2 752 • Заборы и коммивояжеры 3 656 • Игра HIP 2 463 • Игра Go (Го) 2 445 • Симулятор лифта 2 856 • Программа укладки плитки 2 293 • Генератор лабиринта 3 014 • Проверка числового ввода 2 515 • HEX View 2 921