bischen
OT, aber hast Du schon mal inline probiert?
http://docwiki.embarcadero.com/RADSt...rufen_(Delphi)
Ansonsten ist mir dein Beispiel zu sehr entgegen meinen Gewohnheiten (Leerzeilen, zu kurze Namen), als dass ich das innerhalb nützlicher Frist genau verstehen würde was du da machst.