Rechteck zeichnen

[Larsi]

Ok, jetzt bin ich schon mal wieder ein Stück weiter aber es klappt nicht. Mein Code jetzt ist:

Delphi-Quellcode:

procedure TForm16.FormCreate(Sender: TObject);
begin
  image1.canvas.Pen.mode :=pmNotXor;
  image1.canvas.pen.style:= psDot;  //Gepunktete Linien
  image1.canvas.pen.color:=clRed;
end;

procedure TForm16.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

Image1.canvas.brush.style :=bsClear;   //Für transparentes Quadrat
if shift = [ssleft] then        //Zeichnen mit linker Maustaste
  begin
    x1 := x;
    y1 := y;
rec := Rect(x1, y1, x2, y2);
    Image1.Canvas.DrawFocusRect(Rec);
  end;
if shift =[ssright] then      //Quadrat löschen mit rechter Maustaste
  image1.canvas.rectangle(x1,y1,x2,y2);

end;

procedure TForm16.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

 if shift = [ssleft] then begin
 Image1.Canvas.DrawFocusRect(Rec);
 x2 := x;
 y2 := y;   //Quadrat durch X-Verschiebung der Maus
  rec := Rect(x1, y1, x2, y2);
 Image1.Canvas.DrawFocusRect(Rec);
  end;
end;

Wenn ich jetzt aber ein Rechteck zeichnen will dann sehe ich nur Steifen im Bilder mehr nicht.