For I2 := 0 to APanel.ControlCount-1 do
    Begin
      Debugln('[TestDBProc] Considering '+APanel.Controls[I2].Name);
      Count := GetPropList(APanel.Controls[I2].ClassInfo, tkProperties, @List);
      for Loop := 0 to Count - 1 do
        If (List[Loop]^.Name = 'DataSource') and ((GetPropValue(APanel.Controls[I2], 'DataSource') as TDataSource) = DataSource) then
        Begin
          {$IFDEF DEBUGDUPINGCONTROLEVENTS}
          Debugln('Setting '+List[Loop]^.Name+' property of control '+Control.Name+' to internal memds');
          {$ENDIF}
          SetPropValue(Dupe, List[Loop]^.Name, DataSource);
        End;