Código Delphi
[-]
Table1.Append;
Table1Fecha.Value:=Date;
Table1.Post;
Table1.Edit;
Table1Fecha.Value:=Date;
Table1.Post;
Vale aclarar que si no defines los campos puedes acceder asi
Código Delphi
[-]Table1.Append;
Table1.FieldByName('Fecha').asDateTime:=Date;
Table1.Post;
Table1.Edit;
Table1.FieldByName('Fecha').asDateTime:=Date;
Table1.Post;