Was gibt es an meinen Snippets auszusetzen?
Beide Varianten funktionieren und machen das was Du wolltest.
Naja, dann eben nicht.
//edit
Ps: Wenn Du frustriert über Dein in die Jahre gekommenes Delphi bist, niemand hindert Dich auf eine aktuelle Version upzugraden. (Delphi CE = Delphi Rio Professional)
Eine Komponente wird Dir hier wahrscheinlich niemand schreiben. Wenn Dein Code keine Änderungen zulässt hast Du vielleicht was falsch gemacht?
Zu guter letzt, Intercepte doch einfach die original
Unit und schon ist alles repariert ohne das Dein Code verändert werden muss.