Hallo omata,
wenn ich Dein Beispiel ausprobiere, bekomme ich den folgenden Fehler in Zeile 7 :
Zitat:
Incompatible types: 'Tobject' and 'procedure, untyped pointer or untyped parameter'
Zumal ich auch nicht ganz den Hintergrund von Deinem Beispiel verstehe.