Das geht nicht !!!
Sowieso ist TDataSource nur ein verbindendes Hilfsobjekt um datensensitive Steuerelemente anzubinden.
Über [TDataSource].DataSet kommt man an das TDataSet-Objekt; hier spielt die Musik.
Delphi-Quellcode:
procedure TForm1.Datasource2Memo(ADatasource:TDataset; Amemo:TMemo);
var
ds : TDataset;
begin
ds := ADatasource.Dataset;
ds.First;
while not ds.Eof do
begin
Amemo.lines.Add(ds['Feld1'] + #9 {<= Tab} + ds['Feld2']);
ds.next;
end
;