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

[wadoud]

السلام عليكم 
كيف أعدل على الكود التالى:

procedure TForm1.Button1Click(Sender: TObject);

كود :

begin  if ADoquery1.Active then ADoquery1.Close; ADOquery1.SQL.Text := 'SELECT SUM(x) AS TOTAL ' + 'FROM Tablename  ' + 'WHERE Id = y ' ; ADOquery1.Open; ShowMessage('Total : ' + ADOquery1.FieldByName('TOTAL').asString); end;

بحيث اريد أن يأخذ y ما هو موجود او معروض في DBEdit
جزاكم الله كل خير.

[Mr.DOS]

سلام عليكم

عوض y بـ dbedit

كود :

where id ='''+dbedit.text+'''

[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;

[PLANSHARP]

كود :

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;

[wadoud]

السلام عليكم
أخي الكريم PLANSHARP
جربت الكود وهو يعمل , جزاك الله كل خير أخي الحبيب...