[Casimiro Notevi]

Prueba así:

Código Delphi [-]
query1.close;
query1.sql.text := 'select now()';
query1.Open;
edit1.text := query1.Fields[0].Astext;