GetDataSource - returns the identity of the data source
Source position: dbctrls.pp line 1050
function TDBCalendar.GetDataSource: TDataSource;