Hola
No lo entiendo bien, pero por lo menos hay un error:
Código Delphi
[-]
datamodule1.QC.Close;
datamodule1.QC.SQL.Clear;
datamodule1.QC.SQL.Add('select a.*,c.nombre as Nombre_Articulo, a2.compra_lts ');
datamodule1.QC.SQL.Add('from doctos_compras a, partidas_compras a2, articulos c ');
datamodule1.QC.SQL.Add('where a.folio_compra=a2.folio_compra and a2.cve_art=c.idarticulo and and a.fecha >= Param1 and
a.fecha < dateadd(dd,1, Param1)');
datamodule1.QC.SQL.Add('order by fecha');
datamodule1.QC.ParamByName('Param1').AsDatetime:=Picker1.Datetime;
datamodule1.QC.ExecSQL;
Saludos