Zitat von
Die Delphi Hilfe:
Eine Anwendung wird aktiv, wenn sie ausgeführt wird oder der Fokus von einer anderen Windows-Anwendung zu einem beliebigen Fenster der Anwendung wechselt.
Deshalb funktioniert OnActivate in deinem Fall nicht. Ich hoffe, dass ich dir helfen konnte.