Projektpfad in der IDE-Titelzeile anzeigen?

[KodeZwerg]

Alsowenn man das Package installiert hat passieren zwei Sachen in der Delphi 2009 IDE, zum einen ist die Caption die der zuletzt geööffneten Datei und in der Messages Area wird es auch nochmal reingeschrieben.
Hier die Messages wenn ich das Projekt ShowPath öffne: Screenshot - 28_06.jpg

Ich brauch für OpenTools Api noch mehr Erfahrung um einen Hook zu realisieren, ich weiß nicht wie ich das anstellen soll.

Falls bei Euch die Messages nicht erscheinen, bitte unter Initialization das hier einfügen:  With (BorlandIDEServices As IOTAMessageServices) Do ShowMessageView(nil);