Рисование фигур

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if drawing then // нажата кнопка мыши?
  begin
    if (pX > -1) and (pY > -1) then // Предыдущие координаты мыши
      self.Canvas.Ellipse(sX, sY, pX, pY); // стираем старую окружность
 
    self.Canvas.Ellipse(sX, sY, X, Y); // и рисуем новую (sX, sY - точка, где мышь была нажата)
    pX := X; pY := Y; // На следующем шаге текущие координаты уже будут предыдущими
  end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
StartX:=X;
StartY:=Y;
OldX:=X;
OldY:=Y;
If Ellipse.Down then // Кнопка инструмента "Эллипс"
    begin
    de:=True;
    Image1.Canvas.Pen.Mode:=pmNotXor;
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
If de then
 with Image1.Canvas do begin
 Canvas.Ellipse(StartX,StartY,OldX,OldY);
 Canvas.Ellipse(StartX,StartY,X,Y);
 OldX:=X;
 OldY:=Y;
 end;
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
If Ellipse.Down then
begin
Image1.Canvas.Pen.Mode:=pmCopy;
Image1.Canvas.Ellipse(StartX,StartY,X,Y);
de:=False;
end;

  If de then
  with Image1.Canvas do
  begin
    Ellipse(StartPos.X, StartPos.Y, OldPos.X, OldPos.Y);
    Ellipse(StartPos.X, StartPos.Y, X, Y);
    OldPos.X := X;
    OldPos.Y := Y;
  end;