Delphi-Quellcode:
with form1 do begin
Spielfeld.farbefestlegen(x,y,Farbe);
Hier greifst du aus einer Klasse auf die globale Formvariable zu. Damit geht die ganze Selbstständigkeit und Wiederverwendbarkeit der Klasse flöten. Stattdessen könntest du die Zeichenfläche z.B. per Parameter übergeben:
procedure TStein.zeichne(Dest: TCanvas);