Hi,
dein Fehler liegt in dem Konstruktor deiner TFolie. Da setzt du die Eigenschaften von self.Pen und self.Brush, allerdings werden die nie angelegt. Da diese Klasse einen eigenen Canvas hat (den der übergebenen Folie) solltest du evtl (kenn die Idee hinter deinem Programm nicht) einfach die Eigenschaften des Pen des Canvas setzen
Delphi-Quellcode:
self.Canvas.Pen.Color := VFarbe;
...
oder einfach den Pen und Brush auch im Konstruktor erzeugen.
Gruß Der Unwissende
Und natürlich nen guten Rutsch