Erro na função SUM

Senhores uso o Delphi com ADO e MSDE e não estou conseguindo obter o resultado de uma consulta SUM.
O resultado da variavel TotalVal fica zempre ZERO.
Mostro abaixo a procedure usada.

procedure TForm1.Button1Click(Sender: TObject);

var
strsql:string;
totalval:real;
begin
Totalval:=0;
StrSql:=´select SUM(Valor) as Totalval from DAMS´;
Dm.Q1.Close;
dm.Q1.SQL.Clear;
dm.Q1.SQL.Add(strsql);
dm.Q1.Open;

edit1.Text:=floattostr(totalval);

end;

Agradeço ajuda.
Sds