How to assign the system time to a TDateField

Problem/Question/Abstract:

How can I assign the System time (returned by date function) to a TDateField in a TTable?

Answer:

Table1.Edit;
Table1.FieldByName('aDate').AsDateTime := Date;
Table1.Post;