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