Nun soweit mir bekannt ist gibt es keine vorgefertigte Funktion dafür. Deshalb musst du wohl oder übel den langen Quelltext (wenn du alle Daten nutzen möchtest) benutzen. Allerdings kannst du ihn doch in eine Funktion auslagern (am besten in einer eigenen
Unit). Dann kannst du von überall diese Funktion aufrufen.