SQL iki tarih arası sütun toplamı, kayıt sayısını almak

Kod:
SQL iki tarih arası sütun alanının toplamı, kayıt sayısını alıp label de gösterme.
Ör :

01.01.2010 - 31.01.2010

Kayıt sayısı : 175
Nakit : 41.825,50 TL
Kontenjan : 8.595,65 TL
Genel Toplam : 50.425,11 TL


procedure TSorgulamaForm.BitBtn2Click(Sender: TObject);
var
GridNAKIT,GridKONTENJAN:Currency;
begin
DataModule1.Query1.close;//kapat
DataModule1.Query1.SQL.clear;//temizle
DataModule1.Query1.SQL.Add('SELECT * FROM kontenjangir');//table
DataModule1.Query1.sql.add('Where TARIH BETWEEN '+chr(39)+MaskEdit1.Text+chr(39)+' and '+chr(39)+maskedit2.Text+chr(39)+'');//2 tarih arası
DataModule1.Query1.filtered := True;
DataModule1.Query1.Open;//aç
DataModule1.Query1.First;//ileri
while not DataModule1.Query1.eof do
begin
GridNAKIT:=GridNAKIT+StrtoFloat(DataModule1.Query1.fieldbyname('NAKIT').asstring);
GridKONTENJAN:=GridKONTENJAN+StrtoFloat(DataModule1.Query1.fieldbyname('KONTENJAN').asstring);
DataModule1.Query1.Next;
end;

Label5.Caption:=Floattostr(GridNAKIT);//nakit topla
Label6.Caption:=Floattostr(GridKONTENJAN);//kontenjan topla
Label10.Caption:=Floattostr(GridNAKIT+GridKONTENJAN);//nakit+kontenjan topla
Label1.Caption:=Inttostr (Datamodule1.Query1.RecordCount)+' '; //kayıt sayısını göster

Label5.Caption := FormatFloat('###,##0.00',strtofloat(Label5.Caption ));//nakit toplam göster
Label6.Caption := FormatFloat('###,##0.00',strtofloat(Label6.Caption ));//kontenjan toplamı göster
Label10.Caption := FormatFloat('###,##0.00',strtofloat(Label10.Caption ))//nakit+kontenjan toplamını göster

end;