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