perdon señores, pero a veces el sueño y el cansancio nos hacen hacer cosas que no podemos explicar jajajajajaja bueno encontre los errores, y pues me hacia falta between y cambie un poquitin el codigo y me funciono a las mil maravillas, perdon por las molestias y aqui dejo el codigo que me funciono a la perfeccion, gracias a todos los chicos del foro
Código Delphi
[-]
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select sum(ganancia) from diario');
adoquery1.SQL.Add('where fecha between :Fechain and :Fechafin');
adoquery1.Parameters.ParamByName('Fechain').Value:=datetimepicker1.DateTime;
adoquery1.Parameters.ParamByName('Fechafin').Value:=datetimepicker2.DateTime;
adoquery1.Open;
a:=adoquery1.Fields[0].AsFloat;
adoquery1.Close;
edit1.Text:=floattostr(a);