adoData2.Active := False; 
adoData2.SQL.Text := 'select top 1 * from bs_Data where Point='+QuotedStr(p2); 
adoData2.Active := True; 
-------------------------------------------------------------------- 
[错误] Unit_Main.pas(508): Incompatible types: 'String' and 'TLabel' 
紧急求助,出现以上错误怎么解决