I have the sources for an old chess component in Delphi. I migrated from it to Berlin. After compiling and installing everything ok. However, one of the components has problems when I enter it in the form, generating an error.
This component, derived from the TPanel class, is used to view the writing of the games. The error:
"Acces violation at address 24365BF2 in module" ChessBoard.bpl "Write of address 0000005C".
Details:
[24365BF2] {ChessBoard.bpl} Notation.TNotation. $ Bctr $ qqrp25System.Classes.TComponent (Line 1020, "Notation.pas" + 61) + $ 15 [500601B8] {rtl240.bpl} System.TMonitor.Destroy (Line 18102, "System.pas" + 0) + $ 0 [5005F839] {rtl240.bpl} System.TObject.CleanupInstance (Line 16698, "System.pas" + 37) + $ 0 [5005A1C9] {rtl240.bpl} System. @ ReallocMem (Line 4736, "System.pas" + 21) + $ 0 [50065346] {rtl240.bpl} System.DynArraySetLength (Line 34277, "System.pas" + 104) + $ 13 [5005A1FB] {rtl240.bpl} System. @ ReallocMem (Line 4806, "System.pas" + 91) + $ 0 [50065346] {rtl240.bpl} System.DynArraySetLength (Line 34277, "System.pas" + 104) + $ 13 [50AA6857] {vcl240.bpl} Vcl.Controls.TWinControl.AlignControl (Line 9014, "Vcl.Controls.pas" + 1) + $ 3 [50065346] {rtl240.bpl} System.DynArraySetLength (Line 34277, "System.pas" + 104) + $ 13 [50AA1154] {vcl240.bpl} Vcl.Controls.TControl.RequestAlign (Line 5555, "Vcl.Controls.pas" + 1) + $ 1 [50AA995F] {vcl240.bpl} Vcl.Controls.TWinControl.RequestAlign (Line 10825, "Vcl.Controls.pas" + 11) + $ 3 [50AA8675] {vcl240.bpl} Vcl.Controls.TWinControl.WndProc (Line 10143, "Vcl.Controls.pas" + 158) + $ 6 [5005FBE2] {rtl240.bpl} System. @ CallDynaInst (Line 17133, "System.pas" + 4) + $ 0 [50155C39] {rtl240.bpl} System.Classes.TInterfacedPersistent.AfterConstruction (Line 5555, "System.Classes.pas" + 2) + $ 6 [5005FF2D] {rtl240.bpl} System. @ AfterConstruction (Line 17839, "System.pas" + 2) + $ 5 [50159051] {rtl240.bpl} System.Classes.TStringList.Create (Line 7244, "System.Classes.pas" + 2) + $ 6 [24365BE4] {ChessBoard.bpl} Notation.TNotation. $ Bctr $ qqrp25System.Classes.TComponent (Line 1020, "Notation.pas" + 61) + $ 7 [21F9019B] {delphicoreide240.bpl} CompPalMgr.TComponentPalettePageItemDelegate.CreateComponent (Line 2755, "CompPalMgr.pas" + 2) + $ 7 [2129C683] {designide240.bpl} ComponentDesigner.TComponentRoot.DoCreateComponent (Line 2491, "ComponentDesigner.pas" + 28) + $ 17 [212A2950] {designide240.bpl} ComponentDesigner.TComponentRoot.CreateCurrentComponent (Line 4792, "ComponentDesigner.pas" + 2) + $ 34 [212BDD82] {designide240.bpl} Surface.TDesignSurface.CreateItem (Line 203, "Surface.pas" + 1) + $ 11 [2126294A] {designide240.bpl} Designer.TDesigner.DoDragCreate (Line 802, "Designer.pas" + 1) + $ F [2126324C] {designide240.bpl} Designer.TDesigner.DragEnd (Line 988, "Designer.pas" + 19) + $ 3 [21265864] {designide240.bpl} Designer.TDesigner.MouseUp (Line 1776, "Designer.pas" + 1) + $ 2 [525BFB36] {vcldesigner240.bpl} VCLSurface.MouseEvent (Line 3257, "VCLSurface.pas" + 45) + $ 11 [500604A7] {rtl240.bpl} System.TMonitor.Exit (Line 18292, "System.pas" + 2) + $ 7 [525C072B] {vcldesigner240.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3518, "VCLSurface.pas" + 48) + $ 6 [5005FA96] {rtl240.bpl} System. @ IsClass (Line 16965, "System.pas" + 1) + $ 8 [50AA38AF] {vcl240.bpl} Vcl.Controls.TControl.WndProc (Line 7226, "Vcl.Controls.pas" + 4) + $ 21 [0D9C514C] {TrackingSystem240.bpl} TrackingSystemHelp.CBTHookProc (Line 211, "TrackingSystemHelp.pas" + 27) + $ F [50AA7E83] {vcl240.bpl } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9906, "Vcl.Controls.pas" + 1) + $ 9 [50AA8675] {vcl240.bpl} Vcl.Controls.TWinControl.WndProc (Line 10143, "Vcl.Controls.pas" + 158) + $ 6 [50BE5565] {vcl240.bpl} Vcl.Forms.TCustomForm.WndProc (Line 4523, "Vcl.Forms.pas" + 209) + $ 5 [525C9A03] {vcldesigner240.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 344, "VCLFormContainer.pas" + 33) + $ C [50AA7C94] {vcl240.bpl} Vcl.Controls.TWinControl.MainWndProc (Line 9850, "Vcl.Controls.pas" + 3) + $ 6 [50170D28] {rtl240.bpl} System.Classes.StdWndProc (Line 17179, "System.Classes.pas" + 8) + $ 0 [50BEEC8F] {vcl240.bpl} Vcl.Forms.TApplication.ProcessMessage (Line 10534, "Vcl.Forms.pas" + 23) + $ 1 [50BEECD2] {vcl240.bpl} Vcl.Forms.TApplication.HandleMessage (Line 10564, "Vcl.Forms.pas" + 1) + $ 4 [50BEF005] {vcl240.bpl} Vcl.Forms.TApplication.Run (Line 10702, "Vcl.Forms.pas" + 26) + $ 3
Can anyone help? It must be simple. Anything put the source of this component.