Zeichnen in einer Image Komponente

[derhoeppi]

Hallo Matze
Ich hab das jetzt mal nicht ganz so gemacht wie du es gesagt hast. Ich hab mir die Seiten herausgesucht und dann über die Canvas.Brush.Color geschrieben, aber ohne erfolg.Nehm ich das Canvas weg so besitzt mein ganzes Formular diese Farbe.Mein bisheriger Quelltext - hab das Quadrat auch etwas im aussehen geändert.
Meine Procedure

Delphi-Quellcode:

procedure TForm1.Netz(Sender: TObject);
var XY:integer;
begin
 XY := 50;
Brush.Style:= bsSolid;
Canvas.Brush.Color:=clblue;
Image1.Canvas.Rectangle(    25, 50, 85, 75);
Image1.Canvas.Rectangle(    178, 50, 238, 75);
Canvas.Brush.Color:=clYellow;
Image1.Canvas.Rectangle(    86, 76, 176, 101);
Image1.Canvas.Rectangle(    86, 24, 176, 49);
Canvas.Brush.Color:=clblack;
Image1.Canvas.Rectangle(    239, 50, 329, 75);
Image1.Canvas.Rectangle(    86, 50, 177, 75);
end;

Was mach ich da falsch???