Fix issue where dialogs could be confirmed even if a validation error occurred

Author: maurizuki

src/O2/o2.dproj

@@ -88,8 +88,8 @@
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
         <DCC_DependencyCheckOutputName>o2.exe</DCC_DependencyCheckOutputName>
         <SanitizedProjectName>o2</SanitizedProjectName>
-        <VerInfo_Build>571</VerInfo_Build>
-        <VerInfo_Keys>CompanyName=The O2 Project;FileDescription=O2;FileVersion=3.3.1.571;InternalName=O2;LegalCopyright=(C) 2004-2026 Maurizio Basaglia. All rights reserved.;LegalTrademarks=;OriginalFilename=o2.exe;ProductName=O2;ProductVersion=3.3.1;Comments=A safe storage for your personal data.;Homepage=https://maurizuki.github.io/O2</VerInfo_Keys>
+        <VerInfo_Build>572</VerInfo_Build>
+        <VerInfo_Keys>CompanyName=The O2 Project;FileDescription=O2;FileVersion=3.3.1.572;InternalName=O2;LegalCopyright=(C) 2004-2026 Maurizio Basaglia. All rights reserved.;LegalTrademarks=;OriginalFilename=o2.exe;ProductName=O2;ProductVersion=3.3.1;Comments=A safe storage for your personal data.;Homepage=https://maurizuki.github.io/O2</VerInfo_Keys>
         <BT_BuildType>Debug</BT_BuildType>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">

src/O2/o2.res

@@ -111,7 +111,6 @@ object FilePropsDlg: TFilePropsDlg
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Default = True
-    ModalResult = 1
     TabOrder = 5
     OnClick = btOkClick
   end

src/O2/uFilePropsDlg.dfm

@@ -99,6 +99,7 @@ procedure TFilePropsDlg.SetModel(const Value: IFileProps);
 procedure TFilePropsDlg.btOkClick(Sender: TObject);
 begin
   FModel.ApplyChanges;
+  ModalResult := mrOk;
 end;
 
 end.

src/O2/uFilePropsDlg.pas

@@ -297,7 +297,6 @@ object ObjPropsDlg: TObjPropsDlg
     Action = OK
     Anchors = [akRight, akBottom]
     Default = True
-    ModalResult = 1
     TabOrder = 1
     ExplicitLeft = 220
     ExplicitTop = 408

src/O2/uObjPropsDlg.dfm

@@ -314,6 +314,7 @@ procedure TObjPropsDlg.OKExecute(Sender: TObject);
   FModel.ObjectNotes := Memo.Lines;
 
   FModel.ApplyChanges;
+  ModalResult := mrOk;
 end;
 
 procedure TObjPropsDlg.OKUpdate(Sender: TObject);

src/O2/uObjPropsDlg.pas

@@ -99,7 +99,6 @@ object RelationPropsDlg: TRelationPropsDlg
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Default = True
-    ModalResult = 1
     TabOrder = 4
     OnClick = btOkClick
   end

src/O2/uRelationPropsDlg.dfm

@@ -94,6 +94,7 @@ procedure TRelationPropsDlg.cbRole2Change(Sender: TObject);
 procedure TRelationPropsDlg.btOkClick(Sender: TObject);
 begin
   FModel.ApplyChanges;
+  ModalResult := mrOk;
 end;
 
 end.

src/O2/uRelationPropsDlg.pas

@@ -25,7 +25,6 @@ object RulePropsDlg: TRulePropsDlg
     Action = OK
     Anchors = [akRight, akBottom]
     Default = True
-    ModalResult = 1
     TabOrder = 1
   end
   object btCancel: TButton

src/O2/uRulePropsDlg.dfm

@@ -235,6 +235,7 @@ procedure TRulePropsDlg.FormShow(Sender: TObject);
 procedure TRulePropsDlg.OKExecute(Sender: TObject);
 begin
   FModel.ApplyChanges;
+  ModalResult := mrOk;
 end;
 
 procedure TRulePropsDlg.OKUpdate(Sender: TObject);