Bueno, el sistema es el mismo que ves en el ejemplo.
Código Delphi
[-]
TAsignarProp = procedure(AEt:String) of object;
Ahí se pasa por parámetro en el procedimiento un String, pero nada te impide que pases cualquier otra cosa; ADOConnection, DataModule,...
Define el tipo para esa llamada y ya está.