DBcontrols dinamicos

[Delfino]

Bueno parece q aqui puede ser la solcuion a este problema:

uses TypInfo;
...
procedure ApplyDataSource(dbCtrls: array of TControl; DS: TDataSource) ;
var
   cnt: Integer;
   PropInfo: PPropInfo;
begin
   for cnt := Low(dbCtrls) to High(dbCtrls) do
   begin
     PropInfo := GetPropInfo(dbCtrls[cnt].ClassInfo, 'DataSource') ;
     if Assigned(PropInfo) then
       SetOrdProp(dbCtrls[cnt], PropInfo, LongInt(DS)) ;
   end;
end;
...

y llamarla seria asi :

ApplyDataSource([DBNavigator1, DBText1, DBButton1], DataSource1) ;