EAccessViolation beim aufrufen der eigenen Klasse

[shmia]

Delphi-Quellcode:

constructor TPaint.Create(PaintBox: TPaintBox); 
var 
   X,Y: Integer; 
   Bool: Boolean; 
begin 
   inherited Create(); 
   self.Size := PaintBox.Height div 8; 
   self.PenBlack.Color := clblack;    // hier macht es Budsch, weil Objekt PenBlack nicht erzeugt wurde !!

Du kannst mit Delphi auch debuggen!
Mit Breakpoints setzen und Einzelschrittmodus kann man diese Art von Fehlern leicht selber entdecken.