consulta sql en un boton

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
    ShortDateFormat := 'mm/dd/yyyy';
    try
         QReport1:= TQReport1.Create(self);
         QReport1.ADOQuery1.SQL.Add('select cont(pk), id_emp(fk), fecha_inicial, fecha_final , produccion From general');
         QReport1.ADOQuery1.SQL.Add(' WHERE  general.fecha_inicial >= #'+DateToStr(DateTimePicker1.Date)+
                                    '# AND  general.fecha_final <= # '+DateToStr(DateTimePicker2.Date)+'#');
         QReport1.ADOQuery1.Open;
         ShortDateFormat := 'dd/mm/yyyy';
         QReport1.Preview;
      finally
         QReport1.Free;
 end;
end;

Saludos
PD: Hola AzidRain: Tu crees ??? jejeje.