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