diff --git a/components/rx/rxcloseformvalidator.pas b/components/rx/rxcloseformvalidator.pas
index b9ac5908d..5636b4d0a 100644
--- a/components/rx/rxcloseformvalidator.pas
+++ b/components/rx/rxcloseformvalidator.pas
@@ -67,12 +67,12 @@ type
{ TValidateItems }
- TValidateItems = class(TCollection)
+ TValidateItems = class(TOwnedCollection)
private
function GetItems(Index: Integer): TValidateItem;
procedure SetItems(Index: Integer; AValue: TValidateItem);
public
- constructor Create;
+ //constructor Create();
property Items[Index: Integer]: TValidateItem read GetItems write SetItems; default;
end;
@@ -116,10 +116,10 @@ begin
Items[Index].Assign( AValue );
end;
-constructor TValidateItems.Create;
+{constructor TValidateItems.Create;
begin
inherited Create(TValidateItem);
-end;
+end;}
{ TValidateItem }
@@ -380,7 +380,7 @@ constructor TRxCloseFormValidator.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FErrorMsgCaption:=sCloseValidError;
- FItems:=TValidateItems.Create;
+ FItems:=TValidateItems.Create(Self, TValidateItem);
end;
destructor TRxCloseFormValidator.Destroy;
diff --git a/components/rx/rxnew.lpk b/components/rx/rxnew.lpk
index c17903c5b..ed4e849fd 100644
--- a/components/rx/rxnew.lpk
+++ b/components/rx/rxnew.lpk
@@ -26,7 +26,7 @@ Copyright (c) 1998 Master-Bank
translate to Lazarus by alexs in 2005 - 2012
"/>
-
+