取SQLSERVER服务器上的时间

procedure TForm1.btn1Click(Sender: TObject);

begin

  try

    qry1.SQL.Text:='select GETDATE()';

    qry1.Open;

    edt1.Text:=qry1.Fields[0].AsString;

  finally

    qry1.Close;

  end;    

end;