Procedure TMain. BitBtn1Click (Sender: TObject);
VAR
AdoQ1: TADOQuery;
DSQ1: TDataSource;
The begin
AdoQ1:=TADOQuery. Create (Application);
AdoQ1. Connection:=ADOConnection1;//bind
DSQ1:=TDataSource (Application);//create control
DSQ1. The DataSet:=AdoQ1;////binding as if it is wrong, you can run, but the error at the click of a button,
end;