أخذ قيمة DBEdit وجعلها في استعلام ADOQuery

[wadoud]

لم يعمل لقد وضعت كما قلت و لم يعمل
begin
if ADoquery1.Active then
ADoquery1.Close;
ADOquery1.SQL.Text := 'SELECT SUM(x) AS TOTAL '
+ 'FROM Tablename '
+ 'WHERE Id = '''+dbedit.text+'''' ;
ADOquery1.Open;
ShowMessage('Total : ' + ADOquery1.FieldByName('TOTAL').asString);
end;