Problem bei Rechteck zeichnen (mit PaintBox)

[Klaus01]

.. ist nicht kompliziert:

Delphi-Quellcode:

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  endX := x;
  endY := y;
  invalidate;
end;

Grüße und auch einen guten Rutsch
Klaus