with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text := 'select sum(randevuUcret) as toplam from gecmisRandevular where randevuTarih between :bitistarihi and :baslangictarihi';
Parameters.ParamByName('baslangictarihi').Value:=datetimepicker1.Date;
Parameters.ParamByName('bitistarihi').Value:=datetimepicker2.Date;
Open;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
Label3.Caption:='Kazanç: '+(ADOQuery1['toplam']);
//ADOQuery1.Next;
end;
end;