Делаю графический редактор, как нарисовать мышью прямоугольник?

Uses GraphABC;
 
procedure DrawRectangleOnMouse(mb, x, y: integer);
begin
  if (mb = 1) the begin
  var x2, y2, x3, y3: integer;
  x2:= x;
  y2 := y;
  repeat
  until (mb = 0);
  x3 := x;
  y3 := y;
  Rectangle(x2, y2, x3, y3);
End;
 
Begin
  OnMouseUp := DrawRectangleOnMouse;
End.

Procedure Cursor;
Begin
  Cur.MoveTo(x, y);
End;
 
Begin
  Var x, y: integer;
  Var cur:= new RectangleABC(x, y, x+1, y+1);
  OnMouseUp := DrawRectangleOnMouse;
  OnMouseMove := Cursor;
End.

Uses GraphABC;
 
var 
  px, py : integer;
  drawing : boolean := false;
 
procedure msDown(x, y, mb: integer);
begin
  if mb = 1 then
  begin
    drawing := true;
    px := x; py := y;
  end;
end;
 
procedure msUp(x, y, mb: integer);
begin
  drawing := false;
end;
 
 
procedure msMove(x, y, mb: integer);
begin
  if drawing then
  begin
    ClearWindow; // а вот тут и приходит большой облом: в модуле GraphABC не реализованы режимы вывода (XORPut в частности), поэтому приходится стирать содержимое всего окна. Ну и на фиг такой редактор?
    Rectangle(px, py, x, y);
  end;
end;
 
Begin
  OnMouseDown := msDown;
  OnMouseUp := msUp;
  OnMouseMove := msMove;
End.