diff --git a/nonvisualctrlsdm.pas b/nonvisualctrlsdm.pas
index e9d3baf..f357b42 100644
--- a/nonvisualctrlsdm.pas
+++ b/nonvisualctrlsdm.pas
@@ -238,6 +238,8 @@ procedure TNonVisualCtrlsDataModule.EditTaskActionExecute(Sender: TObject);
     Edit;
     if TaskEditForm.ShowModal = mrOK then
     begin
+      FieldByName('created').AsDateTime :=
+          TTask.GetById(FieldByName('id').AsInteger).Created; // Fix for date gets lost
       FieldByName('modified').AsDateTime := Now;
       Post;
       ApplyUpdates;