Wieso nicht, das Original ist ja nun mal auch unübersichtlich
Wesentlich wäre: Liefert die die Routine ansatzweise im ShowMessage solche Werte, wie Du erwartest?
Ansonsten ist's ja vergeblich
Oh, da fand ich noch dashier:
http://www.swissdelphicenter.ch/de/showcode.php?id=389