diff --git a/components/tvplanit/source/vpcontacteditdlg.pas b/components/tvplanit/source/vpcontacteditdlg.pas
index dfd8d76fe..186da2628 100644
--- a/components/tvplanit/source/vpcontacteditdlg.pas
+++ b/components/tvplanit/source/vpcontacteditdlg.pas
@@ -954,9 +954,12 @@ begin
       DataStore.GetNextID(ContactsTableName));
     if ceContact <> nil then begin
       Result := Execute(ceContact);
+      if not Result then
+      (*
       if Result then
         DataStore.PostContacts
       else
+        *)
         ceContact.Free;
     end;
   end;
diff --git a/components/tvplanit/source/vpevnteditdlg.pas b/components/tvplanit/source/vpevnteditdlg.pas
index ca4c0693c..46fc94db9 100644
--- a/components/tvplanit/source/vpevnteditdlg.pas
+++ b/components/tvplanit/source/vpevnteditdlg.pas
@@ -859,7 +859,7 @@ begin
     );
     if ceEvent <> nil then begin
       Result := Execute(ceEvent);
-      if (not Result) or (ceEvent = nil) then
+      if (not Result) then
         ceEvent.Free;
     end;
   end;