[truequeman]

Listo... ya lo habia probado en diferentes partes y no quedaba pero poniendolo asi:

procedure Tfecha.FormActivate(Sender: TObject);
begin
Fecha.DateTime:=Now;

ya cuando hago la consulta ya keda en la fecha actual.
gracias.