@Mleyen: da sist aber mal ne abenteuerliche konstruktion mit ner funktion inner funktion o.O. Ich gucks mir mal an.
Standard in Pascal. Keine Angst, daran ist nichts abenteuerlich. Im Gegenteil, es ist guter Programmierstil, da so die Callbackfunktion nicht außerhalb dieser (äußeren) Funktion sichtbar ist (es sei denn durch Aliasing).