eror در کد sql

[fakhravari]

مقدار تعداد کالا بدون شرط درسته اما اگه 2 فیلد از جدول رو انتخاب کنید eror میده

SELECT KalaId , Tedad as t FROM Anbar where KalaId =:KalaId
دوستان کمک کنند.



procedure TFr_Kharid.sButton4Click(Sender: TObject);
begin
try
with(DM.Query) do begin
DM.Query.Close;
DM.Query.SQL.Clear;
DM.Query.SQL.Add('SELECT KalaId , Tedad as t FROM Anbar where KalaId =:KalaId');
DM.Query.Parameters.ParamByName('KalaId').Value:=t xtKalaId.Text;
DM.Query.Open;
End;
lbltedadAnbar.caption:=inttostr(DM.Query.fieldbyna me('t').asinteger);
txtKalaidAnbar.Text:= inttostr(DM.Query.fieldbyname('KalaId').asinteger) ;
except
showmessage('error');
end;
end;

[fakhravari]

مشکل حل شد

procedure TFrame2.Button10Click(Sender: TObject);
begin
DM.Query.Close;
DM.Query.sql.clear;
DM.Query.sql.text:='SELECT Sum(Tedad) AS SumOfTedad, KalaId FROM Anbar GROUP BY KalaId HAVING KalaId =:KalaId ';

DM.Query.Parameters.ParamByName('KalaId').Value := MaskEdit2.Text;
DM.Query.open;

sMaskEdit5.text:=inttostr(DM.Query.fieldbyname('Su mOfTedad').asinteger);
sMaskEdit6.Text:=DM.Query['KalaId']
end;