Problem bei Rechteck zeichnen (mit PaintBox)

[approxinately007]

Hallo,

ich bin Neuling in diesem Forum und Schüler und Anfänger in Sachen Delphi...
Wir müssen für die Schule ein Programm schreiben!
Meine Idee war, ein Rechteck zu zeichnen, wenn ich auf den Button2 klicke!

Das Problem: Wenn ich das Rechteck vergrößere, ist alles normal!
Verkleinere ich es mit gedrückter Mausdaste, dann sieht man die ganzen anderen Rechtecke,
welche durch MouseMove gezeichnet werden!!!

Ist es möglich, das ich das Rechteck vergrößern und verkleinern kann (mit linke maustaste gedrückt)
und dass es ein Rechteck bleibt und nicht hunderte übereinander...

Hier mal der Code:

Code:

var
  Form1: TForm1;
  Bild: TBitmap;
  Zeichenfarbe: TColor;
  X1, Y1, AMax, AMin: Integer;
  S, R, b: Boolean;

implementation

{$R *.dfm}

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if S then
  begin
  if ssLeft in Shift then PaintBox1.Canvas.MoveTo(X,Y);
  if ssLeft in Shift then PaintBox1.Canvas.LineTo(X,Y);
  end;
  if R then
  begin
  if ssLeft in Shift then PaintBox1.Canvas.MoveTo(X,Y);
  b := true;
  X1 := X;
  Y1 := Y;
  end;
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if S then
  begin
  if ssLeft in Shift then PaintBox1.Canvas.LineTo(X,Y);
  end;
  if R then
  begin
    if b then
      begin
      if ssLeft in Shift then
      PaintBox1.Canvas.MoveTo(X,Y);
      PaintBox1.Canvas.Rectangle(X1,Y1,X,Y);
      end;
  end;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
  S := true;
  R := false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  R := true;
  S := false;
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if R then
  begin
    if ssLeft in Shift then
    PaintBox1.Canvas.MoveTo(X,Y);
    PaintBox1.Canvas.Rectangle(X1,Y1,X,Y);
    b := false;
  end;
end;

end.

Würde mich über eure Hilfe freuen! Als Anfänger komme ich mit diesem Problem nich mehr klar!

Mfg
Approxinately007