Returns list of objects to which control Ctl belongs.

function GroupForControl(Ctl: TObject): TList;