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.