Relatório semanal

Pessoal, estou precisando montar um relatorio que me traga os dados da semana.

Poderia colocar 2 datetimepicker, mas solicitaram que fosse sem. então me quebrei.

achei um codigo que promete fazer isso, mas da erro:

 QuerySoma.SQL.Clear;
 QuerySoma.SQL.Add('Select Sum(Total) as Tsoma from tbvencidas where Dt_pagamento between ( ( extract(day from Data) - 1 + extract(weekday from Data - Extract(day from Data) + 1) ) / 7 + 1 )');
 QuerySoma.Prepare;
 QuerySoma.Open;
 QRLabel8.Caption := FormatFloat('###,###,##0.00', QuerySoma.FieldByName('TSoma').AsCurrency);
 QuerySoma.Close;

/applications/core/interface/imageproxy/imageproxy.php?img=http://i44.tinypic.com/2rm4kt2.jpg&key=9dc1cfb00f641b6f4dd8ebb56999f5a7b433c35405ea1309a7eefcd1146ec582" alt="2rm4kt2.jpg" />

Alguma dica?