Source position: dbctrls.pp line 1284
procedure ChangeDataSource(
AControl: TControl;
Link: TDataLink;
NewDataSource: TDataSource
);