diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index 7dbe994ca..bebce69ba 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -1363,7 +1363,6 @@ var
cell: TSize;
Rm, Ry: TRect;
sm: TCalSelMode;
- newDate: TDate;
begin
sm := FOwner.SelMode(Shift);
cell := GetCellAt(APoint);
diff --git a/components/exctrls/source/excheckctrls.pas b/components/exctrls/source/excheckctrls.pas
index 07d47bfd1..2faf1aa40 100644
--- a/components/exctrls/source/excheckctrls.pas
+++ b/components/exctrls/source/excheckctrls.pas
@@ -389,7 +389,6 @@ type
property ButtonCount: Integer read GetButtonCount;
property Buttons[AIndex: Integer]: TRadioButtonEx read GetButtons;
property ItemEnabled;
- published
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
diff --git a/components/exctrls/source/exshape.pas b/components/exctrls/source/exshape.pas
index 5ec26b4d9..76aae947a 100644
--- a/components/exctrls/source/exshape.pas
+++ b/components/exctrls/source/exshape.pas
@@ -5,7 +5,7 @@ unit ExShape;
interface
uses
- LCLVersion, Types, Graphics, Classes, SysUtils, ExtCtrls;
+ LCLIntf, LCLType, LCLVersion, Types, Graphics, Classes, SysUtils, ExtCtrls;
type
{$IF LCL_FullVersion < 2020000}
@@ -73,9 +73,6 @@ type
implementation
-uses
- LCLIntf, LCLType;
-
{ TShapeText }
constructor TShapeText.Create(AShape: TShape);
diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
index 63a6f710a..ae5e79b01 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
@@ -27,7 +27,7 @@ unit fpspreadsheetgrid;
interface
uses
- Classes, SysUtils, LMessages, LResources, LCLVersion, Variants,
+ LCLType, LCLIntf, LCLVersion, Classes, SysUtils, LMessages, LResources, Variants,
Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, ExtCtrls,
fpstypes, fpspreadsheet, fpspreadsheetctrls;
@@ -911,7 +911,7 @@ var
implementation
uses
- Types, LCLType, LCLIntf, LCLProc, LazUTF8, Math, StrUtils,
+ Types, LazUTF8, Math, StrUtils,
fpCanvas, {%H-}fpsPatches, fpsStrings, fpsUtils, fpsVisualUtils, fpsHTMLUtils,
fpsImages, fpsNumFormat, fpsExprParser;
diff --git a/components/industrialstuff/industrial.lpk b/components/industrialstuff/industrial.lpk
index 3f4ab1bc0..b63eb1727 100644
--- a/components/industrialstuff/industrial.lpk
+++ b/components/industrialstuff/industrial.lpk
@@ -24,6 +24,11 @@
+
+
+
+
+
-
+
diff --git a/components/industrialstuff/source/indlcddisplay.pas b/components/industrialstuff/source/indlcddisplay.pas
index c5ab79353..b5a631a35 100644
--- a/components/industrialstuff/source/indlcddisplay.pas
+++ b/components/industrialstuff/source/indlcddisplay.pas
@@ -622,7 +622,7 @@ begin
Writer.WriteListEnd;
end;
-
+(*
{ TLCDDisplayStrings }
type
@@ -632,7 +632,7 @@ type
public
property OnChange: TNotifyEvent read FOnChange write FOnChange;
end;
-
+*)
{ TLCDDisplay}
diff --git a/components/industrialstuff/source/indlcddisplay_editorform.pas b/components/industrialstuff/source/indlcddisplay_editorform.pas
index b3921d006..5dc64da36 100644
--- a/components/industrialstuff/source/indlcddisplay_editorform.pas
+++ b/components/industrialstuff/source/indlcddisplay_editorform.pas
@@ -5,8 +5,8 @@ unit indLCDDisplay_EditorForm;
interface
uses
- Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
- Grids, ExtCtrls, Buttons, indLCDDisplay, Types;
+ LCLIntf, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
+ Grids, ExtCtrls, Buttons, indLCDDisplay;
type
diff --git a/components/industrialstuff/source/switches.pas b/components/industrialstuff/source/switches.pas
index ac01f4f86..cd1d6f4d5 100644
--- a/components/industrialstuff/source/switches.pas
+++ b/components/industrialstuff/source/switches.pas
@@ -18,7 +18,7 @@ unit switches;
interface
uses
- Graphics, Classes, SysUtils, Types, Controls, ExtCtrls;
+ LCLIntf, LCLType, Graphics, Classes, SysUtils, Types, Controls, ExtCtrls;
type
TSwitchBorderStyle = (bsNone, bsThin, bsThick, bsThin3D, bsThick3D);
@@ -148,7 +148,7 @@ type
implementation
uses
- LCLIntf, LCLType, Math;
+ Math;
function TintedColor(AColor: TColor; ADelta: Integer): TColor;
var
diff --git a/components/jvcllaz/packages/jvcustomlazr.lpk b/components/jvcllaz/packages/jvcustomlazr.lpk
index 1fbc74018..27dc6227e 100644
--- a/components/jvcllaz/packages/jvcustomlazr.lpk
+++ b/components/jvcllaz/packages/jvcustomlazr.lpk
@@ -11,6 +11,11 @@
+
+
+
+
+
@@ -63,7 +68,7 @@ TimeLine, OutlookBar, Thumbnail viewer, ImageViewer, ImageListViewer, OwnerDrawV
-
+
diff --git a/components/jvcllaz/packages/jvdblazr.lpk b/components/jvcllaz/packages/jvdblazr.lpk
index 0764ad380..83c247ddf 100644
--- a/components/jvcllaz/packages/jvdblazr.lpk
+++ b/components/jvcllaz/packages/jvdblazr.lpk
@@ -11,6 +11,11 @@
+
+
+
+
+
+
+
+
+
+
diff --git a/components/jvcllaz/run/JvCmp/jvprofilerform.pas b/components/jvcllaz/run/JvCmp/jvprofilerform.pas
index 7f605dda6..bed0ebf38 100644
--- a/components/jvcllaz/run/JvCmp/jvprofilerform.pas
+++ b/components/jvcllaz/run/JvCmp/jvprofilerform.pas
@@ -204,6 +204,7 @@ function GetComputerName : string;
var
len : cardinal;
begin
+ Result := '';
len := MAX_COMPUTERNAME_LENGTH + 1;
SetLength(result, len);
if Windows.GetComputerName(PChar(result), len) then begin
diff --git a/components/jvcllaz/run/JvCore/jvjvclutils.pas b/components/jvcllaz/run/JvCore/jvjvclutils.pas
index f1a730af3..965c67d7a 100644
--- a/components/jvcllaz/run/JvCore/jvjvclutils.pas
+++ b/components/jvcllaz/run/JvCore/jvjvclutils.pas
@@ -37,8 +37,8 @@ uses
{$IFDEF WINDOWS}
Windows, // before Types!
{$ENDIF}
+ LCLType, LCLVersion, LMessages,
Classes, Graphics, Controls, ImgList, Menus, Forms, Types,
- LCLType, LCLProc, LCLVersion, LMessages,
JvTypes;
(******************** NOT CONVERTED
diff --git a/components/jvcllaz/run/JvCtrls/jvhtcontrols.pas b/components/jvcllaz/run/JvCtrls/jvhtcontrols.pas
index cdba1fdea..579b77afe 100644
--- a/components/jvcllaz/run/JvCtrls/jvhtcontrols.pas
+++ b/components/jvcllaz/run/JvCtrls/jvhtcontrols.pas
@@ -107,8 +107,8 @@ unit JvHtControls;
interface
uses
- LCLType, {LMessages,} Types,
- SysUtils, Classes, Graphics, {Contnrs,} Controls, StdCtrls, Dialogs,
+ LCLIntf, LCLType, {LMessages,} Types,
+ SysUtils, Classes, Graphics, {Contnrs,} Controls, StdCtrls, Dialogs, Forms,
JvJVCLUtils {JvDataSourceIntf, JvExStdCtrls} ;
const
@@ -429,9 +429,6 @@ function PrepareText(const A: string): string; deprecated;
implementation
-uses
- LCLProc, LCLIntf, Forms;
-
const
cMAILTO = 'MAILTO:';
cURLTYPE = '://';
diff --git a/components/jvcllaz/run/JvCustomControls/jvcustomitemviewer.pas b/components/jvcllaz/run/JvCustomControls/jvcustomitemviewer.pas
index 46f79fe32..251d3dc02 100644
--- a/components/jvcllaz/run/JvCustomControls/jvcustomitemviewer.pas
+++ b/components/jvcllaz/run/JvCustomControls/jvcustomitemviewer.pas
@@ -37,7 +37,7 @@ unit JvCustomItemViewer;
interface
uses
- LMessages, LCLVersion,
+ LCLIntf, LCLVersion, LMessages,
Classes, Graphics, Contnrs, Controls, Forms, ComCtrls,
ExtCtrls, JvConsts, Types, LCLType;
@@ -369,7 +369,7 @@ function CenterRect(InnerRect, OuterRect: TRect): TRect;
implementation
uses
- SysUtils, Math, Themes, LCLIntf,
+ SysUtils, Math, Themes,
JvJCLUtils;
// JvJVCLUtils, ;
diff --git a/components/jvcllaz/run/JvCustomControls/jvimagelistviewer.pas b/components/jvcllaz/run/JvCustomControls/jvimagelistviewer.pas
index 129f7c793..f9fbb6261 100644
--- a/components/jvcllaz/run/JvCustomControls/jvimagelistviewer.pas
+++ b/components/jvcllaz/run/JvCustomControls/jvimagelistviewer.pas
@@ -29,7 +29,7 @@ interface
{$MODE OBJFPC}{$H+}
uses
- LCLVersion,
+ LCLType, LCLIntf, LCLVersion,
SysUtils, Types, Classes, Controls, Graphics, ComCtrls, ImgList,
JvCustomItemViewer;
@@ -158,7 +158,6 @@ type
implementation
uses
- LCLType, LCLProc, LCLIntf,
Math,
JvJCLUtils, JvJVCLUtils;
diff --git a/components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas b/components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas
index 532105fcb..2bb1d0c18 100644
--- a/components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas
+++ b/components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas
@@ -1294,6 +1294,7 @@ var
I: Integer;
UTF8Value: UTF8String = '';
begin
+ Result := '';
I := ReadInt(Stream);
SetLength(Result, I);
if I > 0 then
diff --git a/components/jvcllaz/run/JvCustomControls/jvvalidateedit.pas b/components/jvcllaz/run/JvCustomControls/jvvalidateedit.pas
index f841d6461..39f215a4e 100644
--- a/components/jvcllaz/run/JvCustomControls/jvvalidateedit.pas
+++ b/components/jvcllaz/run/JvCustomControls/jvvalidateedit.pas
@@ -1025,6 +1025,7 @@ var
I: Integer;
L: Integer;
begin
+ Result := '';
SetLength(Result, Length(ParseString));
L := 0;
for I := 1 to Length(ParseString) do
diff --git a/components/jvcllaz/run/JvDB/jvdblookup.pas b/components/jvcllaz/run/JvDB/jvdblookup.pas
index fd8686119..a05d277ea 100644
--- a/components/jvcllaz/run/JvDB/jvdblookup.pas
+++ b/components/jvcllaz/run/JvDB/jvdblookup.pas
@@ -39,7 +39,7 @@ unit JvDBLookup;
interface
uses
- LCLType, LCLIntf, LCLProc, LMessages, LCLVersion,
+ LCLType, LCLIntf, LMessages, LCLVersion,
Variants, Classes, Graphics, Controls, Forms, DB, DBCtrls, Themes,
JvThemes, JvDBUtils;
diff --git a/components/jvcllaz/run/JvDB/jvdbtreeview.pas b/components/jvcllaz/run/JvDB/jvdbtreeview.pas
index 5bf50673e..14c61fe57 100644
--- a/components/jvcllaz/run/JvDB/jvdbtreeview.pas
+++ b/components/jvcllaz/run/JvDB/jvdbtreeview.pas
@@ -1551,7 +1551,7 @@ end;
procedure TJvCustomDBTreeView.CreateWnd;
var
Node: TTreeNode;
- temp: string;
+ temp: string = '';
strLength: Integer = 0;
HasChildren: Byte = 0;
begin
diff --git a/components/jvcllaz/run/JvMM/jvid3v2base.pas b/components/jvcllaz/run/JvMM/jvid3v2base.pas
index cc727144c..c195dcfc3 100644
--- a/components/jvcllaz/run/JvMM/jvid3v2base.pas
+++ b/components/jvcllaz/run/JvMM/jvid3v2base.pas
@@ -1822,7 +1822,7 @@ var
//P, ContentPtr: PWideChar;
//S: WideString;
P, ContentPtr: PChar;
- S: String;
+ S: String = '';
begin
//ContentPtr := PWideChar(Content);
ContentPtr := PChar(Content);
@@ -1869,7 +1869,7 @@ procedure ExtractStrings(Separator: WideChar; const Content: String;
var
EOS: Boolean;
Tail: PChar;
- S: String;
+ S: String = '';
ContentPtr: PChar;
{
Tail: PWideChar;
@@ -5922,7 +5922,7 @@ const
CMinimalHeaderSize: array [Boolean] of Byte = (6, 10);
var
Frame: TJvID3Frame;
- FrameIDStr: AnsiString;
+ FrameIDStr: AnsiString = '';
FrameID: TJvID3FrameID;
LFrameIDLength: Byte;
@@ -8280,6 +8280,8 @@ var
P: PChar;
S: string;
begin
+ Result := '';
+
LCount := GetCount;
Size := 0;
SepLen := Length(Separator);
diff --git a/components/jvcllaz/run/JvMM/jvid3v2types.pas b/components/jvcllaz/run/JvMM/jvid3v2types.pas
index 76f1c4ae3..8ed8669e7 100644
--- a/components/jvcllaz/run/JvMM/jvid3v2types.pas
+++ b/components/jvcllaz/run/JvMM/jvid3v2types.pas
@@ -27,7 +27,7 @@ Known Issues:
unit JvId3v2Types;
-
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface
uses
diff --git a/components/jvcllaz/run/JvNet/jvstrtohtml.pas b/components/jvcllaz/run/JvNet/jvstrtohtml.pas
index 7ea7b865a..d9fd26a3a 100644
--- a/components/jvcllaz/run/JvNet/jvstrtohtml.pas
+++ b/components/jvcllaz/run/JvNet/jvstrtohtml.pas
@@ -488,7 +488,7 @@ begin
SetLength(Result, CurrPos-1);
end;
-{<<<<<<<<<<<<<< NOT CONVERTED
+(*<<<<<<<<<<<<<< NOT CONVERTED
function CharToHtml(Ch: Char): string;
var
I: Integer;
@@ -513,7 +513,7 @@ begin
end;
Result := Ch;
end;
->>>>>>>>>>>>>>>>>>> }
+>>>>>>>>>>>>>>>>>>> *)
end.
diff --git a/components/jvcllaz/run/JvPascalInterpreter/JvInterpreter.pas b/components/jvcllaz/run/JvPascalInterpreter/JvInterpreter.pas
index b91b29a55..055814abf 100644
--- a/components/jvcllaz/run/JvPascalInterpreter/JvInterpreter.pas
+++ b/components/jvcllaz/run/JvPascalInterpreter/JvInterpreter.pas
@@ -193,7 +193,7 @@ end.
interface
uses
- LCLType, LCLIntf, LCLProc, dynlibs,
+ LCLType, LCLIntf, dynlibs,
SysUtils, Classes, Variants,
JvJCLUtils, JvInterpreterParser;
diff --git a/components/jvcllaz/run/JvRuntimeDesign/jvdesignclip.pas b/components/jvcllaz/run/JvRuntimeDesign/jvdesignclip.pas
index df01cd7a3..6e98268fe 100644
--- a/components/jvcllaz/run/JvRuntimeDesign/jvdesignclip.pas
+++ b/components/jvcllaz/run/JvRuntimeDesign/jvdesignclip.pas
@@ -5,7 +5,7 @@ unit JvDesignClip;
interface
uses
- LCLProc, LCLType, LResources, LCLIntf, Classes;
+ LCLType, LResources, LCLIntf, Classes;
type
TJvDesignComponentClipboard = class(TObject)
diff --git a/components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas b/components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas
index 82bc11f8e..285b7b8f7 100644
--- a/components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas
+++ b/components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas
@@ -5,7 +5,7 @@ unit JvDesignImp;
interface
uses
- LCLProc, LCLType, LResources, LCLIntf, LMessages,
+ LCLType, LCLIntf, LMessages, LResources,
SysUtils, Types, Classes, Controls, Graphics, Forms, ExtCtrls, Contnrs,
JvDesignUtils, JvDesignSurface;
diff --git a/components/jvcllaz/run/JvRuntimeDesign/jvdesignsurface.pas b/components/jvcllaz/run/JvRuntimeDesign/jvdesignsurface.pas
index 1460b460e..e2b321f43 100644
--- a/components/jvcllaz/run/JvRuntimeDesign/jvdesignsurface.pas
+++ b/components/jvcllaz/run/JvRuntimeDesign/jvdesignsurface.pas
@@ -40,7 +40,7 @@ interface
uses
Classes, SysUtils,
- LCLProc, LCLType, LResources, LCLIntf, LMessages,
+ LCLType, LResources, LCLIntf, LMessages,
Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
@@ -543,6 +543,7 @@ function TJvDesignSurface.GetSelected: TJvDesignObjectArray;
var
I: Integer;
begin
+ Result := nil;
SetLength(Result, Count);
for I := 0 to Count - 1 do
Result[I] := Selector.Selection[I];
diff --git a/components/jvcllaz/run/JvRuntimeDesign/jvdesignutils.pas b/components/jvcllaz/run/JvRuntimeDesign/jvdesignutils.pas
index ea6d20470..b4ba751e0 100644
--- a/components/jvcllaz/run/JvRuntimeDesign/jvdesignutils.pas
+++ b/components/jvcllaz/run/JvRuntimeDesign/jvdesignutils.pas
@@ -6,7 +6,7 @@ unit JvDesignUtils;
interface
uses
- SysUtils, LCLProc, LCLType, LResources, LCLIntf, LMessages,
+ SysUtils, LCLType, LResources, LCLIntf, LMessages,
Classes, Controls, Graphics, Forms, dialogs;
type
diff --git a/components/jvcllaz/run/JvStdCtrls/jvbutton.pas b/components/jvcllaz/run/JvStdCtrls/jvbutton.pas
index 0adc21078..7578be9e8 100644
--- a/components/jvcllaz/run/JvStdCtrls/jvbutton.pas
+++ b/components/jvcllaz/run/JvStdCtrls/jvbutton.pas
@@ -34,8 +34,7 @@ unit JvButton;
interface
uses
- LMessages,
- Classes, Types, Controls, Graphics, Menus,
+ LCLIntf, LCLType, LMessages, SysUtils, Classes, Types, Controls, Graphics, Menus,
JvComponent, JvConsts, JvTypes;
type
@@ -176,7 +175,7 @@ type
implementation
uses
- Forms, JvJVCLUtils, LCLIntf, LCLType, SysUtils;
+ Forms, JvJVCLUtils;
(******************** NOT CONVERTED
const
diff --git a/components/jvcllaz/run/JvValidators/jverrorindicator.pas b/components/jvcllaz/run/JvValidators/jverrorindicator.pas
index 404e7fad7..48607bda4 100644
--- a/components/jvcllaz/run/JvValidators/jverrorindicator.pas
+++ b/components/jvcllaz/run/JvValidators/jverrorindicator.pas
@@ -217,7 +217,6 @@ implementation
uses
//CommCtrl,
- LCLProc,
SysUtils,
JvResources, JvJVCLUtils;
diff --git a/components/jvcllaz/run/JvWizard/jvwizard.pas b/components/jvcllaz/run/JvWizard/jvwizard.pas
index af96e682a..43ebd0f63 100644
--- a/components/jvcllaz/run/JvWizard/jvwizard.pas
+++ b/components/jvcllaz/run/JvWizard/jvwizard.pas
@@ -336,9 +336,8 @@ unit JvWizard;
interface
uses
- SysUtils, Classes,
- Controls, Forms, Graphics, Buttons, ImgList, Types,
- LMessages, LCLType, LCLIntf, LCLVersion,
+ LCLType, LCLIntf, LCLVersion, LMessages,
+ SysUtils, Classes, Controls, Forms, Graphics, Buttons, ImgList, Types,
JvWizardCommon, JvComponent;
type
diff --git a/components/jvcllaz/run/JvWizard/jvwizardcommon.pas b/components/jvcllaz/run/JvWizard/jvwizardcommon.pas
index a7b5763ac..3ba7e283b 100644
--- a/components/jvcllaz/run/JvWizard/jvwizardcommon.pas
+++ b/components/jvcllaz/run/JvWizard/jvwizardcommon.pas
@@ -43,7 +43,7 @@ unit JvWizardCommon;
interface
uses
- Controls, Graphics, Types, Classes, SysUtils, LCLIntf, LCLType,
+ LCLIntf, LCLType, SysUtils, Controls, Graphics, Types, Classes,
JvResources;
type
diff --git a/components/jvcllaz/run/JvXPCtrls/jvxpbar.pas b/components/jvcllaz/run/JvXPCtrls/jvxpbar.pas
index a349307dd..7bc6c6a67 100644
--- a/components/jvcllaz/run/JvXPCtrls/jvxpbar.pas
+++ b/components/jvcllaz/run/JvXPCtrls/jvxpbar.pas
@@ -51,7 +51,7 @@ unit JvXPBar;
interface
uses
- LCLIntf, LCLProc, LCLType, LMessages, LResources,
+ LCLIntf, LCLType, LCLProc, LMessages, LResources,
SysUtils, Classes, Controls, Graphics, ExtCtrls, Forms, ImgList, ActnList,
JvXPCore, JvXPCoreUtils;
diff --git a/components/jvcllaz/run/JvXPCtrls/jvxpbuttons.pas b/components/jvcllaz/run/JvXPCtrls/jvxpbuttons.pas
index c9acc29af..46a78f763 100644
--- a/components/jvcllaz/run/JvXPCtrls/jvxpbuttons.pas
+++ b/components/jvcllaz/run/JvXPCtrls/jvxpbuttons.pas
@@ -31,7 +31,7 @@ unit JvXPButtons;
interface
uses
- Classes, TypInfo, LCLIntf, LCLType, LCLProc, LMessages, Types, Graphics,
+ Classes, TypInfo, LCLIntf, LCLType, LMessages, Types, Graphics,
Controls, Forms, ActnList, ImgList, Menus,
JvXPCore, JvXPCoreUtils;
diff --git a/components/jvcllaz/run/JvXPCtrls/jvxpcheckctrls.pas b/components/jvcllaz/run/JvXPCtrls/jvxpcheckctrls.pas
index 842dc1302..8cec8db4e 100644
--- a/components/jvcllaz/run/JvXPCtrls/jvxpcheckctrls.pas
+++ b/components/jvcllaz/run/JvXPCtrls/jvxpcheckctrls.pas
@@ -33,7 +33,7 @@ unit JvXPCheckCtrls;
interface
uses
- Classes, LCLIntf, LCLProc, LCLType, LResources, Graphics, Controls, StdCtrls,
+ Classes, LCLIntf, LCLType, LResources, Graphics, Controls, StdCtrls,
JvXPCore, JvXPCoreUtils;
type
diff --git a/components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas b/components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas
index df1b32d63..6137fba21 100644
--- a/components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas
+++ b/components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas
@@ -33,7 +33,7 @@ unit JvXPContainer;
interface
uses
- LCLIntf, LCLProc, LCLType,
+ LCLIntf, LCLType,
Types, TypInfo, Classes, Controls, Graphics, ExtCtrls,
JvXPCore, JvXPCoreUtils;