URGENTE...procura valores em tabela por data...e soma a col

Para calcular o saldo preciso pegar a soma dos cheques de hoje, dos diversos de hoje, depositos hoje e o saldo de ontém...
Naum estou conseguindo puxar os valores pela data...estou trabalhando com três tabelas paradox, BDE...
PLEASE, dêm uma olhadinha nesse código e digam o que há de errado...ou o quê falta????

procedure TForm6.FormResize(Sender: TObject);
var
Data: String;
begin
Data:=DateToStr(DateTimePicker1.Date);
Total:=0;
Query1.First;
Query2.First;
Query3.First;
Deposito:=0;
Cheque:=0;
Diverso:=0;
While not Query1.Eof do
begin
// ParamByName(´dat´).AsDateTime:=DateTimePicker1.Date
begin
Deposito:=Query1Valor.Value;
Query1.Next;
end;
end;
//With Query1 do Begin
//close;
//sql.Clear;
//sql.Add(´select sum(valor) as valor where data=:dat´);
//open;
//End;
While not Query2.Eof do
begin
Cheque:=Query2Valor.Value;
Query2.Next;
end;
While not Query3.Eof do
begin
Diverso:=Query3Valor.Value;
Query3.Next;
end;
Total:=Table1Saldo_anterior.AsFloat+Deposito-(Cheque+Diverso);
DBedit1.Text:=FloatToStr(Total);
DBedit1.Text:=FormatFloat(´R$ #.´,Total);
end;
procedure TForm6.FormShow(Sender: TObject);
begin
DateTimePicker1.Date:=now;
end;

end.
============
Um colega me passou esse código, mas q. tb naum está dando certo...lembrem-se eu quero puxar o valor da data de um datetimepicker...
procedure TForm6.FormResize(Sender: TObject);
begin
Query1.SQL := ´select sum(valor) as totalcheques from cheque where vencimento = ´+StrToDate(Date);;

Query2.SQL := ´select sum(valor) as totaldepositos from depositos where data= ´+StrToDate(Date);

Query3.SQL := ´select sum(valor) as totaldiversos from diveros where vencimento = ´+StrToDate(Date);
Table1saldo_atual := Table1saldo_anterior + Query2.FieldByName(´TOTALDEPOSITOS´).AsFloat - (Query1.FieldByName(´TOTALCHEQUES´).AsFloat + Query3.FieldByName(´TOTALDIVERSOS´).AsFloat);

De acordo com esse codigo q. vc me passou eu deveria criar mais um campo em cada tabela, com o nome de Totaldeposito, cheque e diversos, CERTO?

Em cima ta o código...e embaixo, ta o erro da compilação
[Error] UnitInicial.pas(88): There is no overloaded version of ´StrToDate´ that can be called with these arguments