Chiedo scusa. La soluzione era TSetProperty. Grazie ancora.