From a236313f5f4038141aadcd5b6f783498a9a21420 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Mon, 17 Jul 2023 22:53:11 +0300
Subject: [PATCH] DockedFormEditor: Fix a missing Result value of
 TDesignForms.Add().

---
 components/dockedformeditor/source/dockeddesignform.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/dockedformeditor/source/dockeddesignform.pas b/components/dockedformeditor/source/dockeddesignform.pas
index a67cd43a6e..af4613b926 100644
--- a/components/dockedformeditor/source/dockeddesignform.pas
+++ b/components/dockedformeditor/source/dockeddesignform.pas
@@ -195,7 +195,7 @@ end;
 function TDesignForms.Add(const Item: TDesignForm): Integer;
 begin
   Item.FContainer := Self;
-  inherited;
+  Result := inherited Add(Item);
 end;
 
 procedure TDesignForms.DeleteDesignForm(AIndex: Integer);