diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas
index c3f0d9c875..ee91745225 100644
--- a/components/turbopower_ipro/iphtml.pas
+++ b/components/turbopower_ipro/iphtml.pas
@@ -3841,6 +3841,7 @@ end;
constructor TIpHtmlInteger.Create(AValue: Integer);
begin
+ inherited Create;
FValue := AValue;
end;
@@ -3981,6 +3982,7 @@ end;
constructor TIpHtmlMultiLengthList.Create;
begin
+ inherited Create;
List := {$ifdef IP_LAZARUS}TFPList{$else}TList{$endif}.Create;
end;
@@ -4007,6 +4009,7 @@ end;
constructor TIpHtmlBaseLayouter.Create(AOwner: TIpHtmlNodeCore);
begin
+ inherited Create;
FOwner := AOwner;
FBlockMin := -1;
FBlockMax := -1;
@@ -4111,6 +4114,7 @@ end;
constructor TIpHtmlNode.Create(ParentNode : TIpHtmlNode);
begin
+ inherited Create;
if assigned(ParentNode) then
if ParentNode is TIpHtmlNodeMulti then
TIpHtmlNodeMulti(ParentNode).FChildren.Add(Self)
@@ -9161,6 +9165,7 @@ end;
constructor TIpHtmlGifQueueEntry.Create(AGraphic: TGraphic; ARect: TRect);
begin
+ inherited Create;
{$IFDEF IP_LAZARUS_DBG}
DebugLn('TIpHtmlGifQueueEntry.Create ToDo NOT IMPLEMENTED YET');
{$ELSE}
@@ -14781,6 +14786,7 @@ constructor TIpHtmlFrame.Create(Viewer: TIpHtmlCustomPanel; Parent: TCustomPanel
DataProvider : TIpAbstractHtmlDataProvider; FlagErrors, NoScroll: Boolean;
MarginWidth, MarginHeight: Integer);
begin
+ inherited Create;
FNoScroll := NoScroll;
FParent := Parent;
FViewer := Viewer;
@@ -15461,6 +15467,7 @@ end;
constructor TIpHtmlNvFrame.Create(Scanner: TIpHtmlCustomScanner;
DataProvider : TIpAbstractHtmlDataProvider; FlagErrors: Boolean);
begin
+ inherited Create;
FScanner := Scanner;
FDataProvider := DataProvider;
FHtml := TIpHtml.Create;
diff --git a/components/turbopower_ipro/iphtmlprop.pas b/components/turbopower_ipro/iphtmlprop.pas
index c171c905f0..6a7b3ba525 100644
--- a/components/turbopower_ipro/iphtmlprop.pas
+++ b/components/turbopower_ipro/iphtmlprop.pas
@@ -361,6 +361,7 @@ end;
constructor TIpHtmlProps.Create(APropsAList: TIpHtmlPropsAList; APropsBList: TIpHtmlPropsBList);
begin
+ inherited Create;
FPropsACache := APropsAList;
FPropsBCache := APropsBList;
FPropA := FPropsACache.FDummyA;