нужны комментарии к задаче.

[Richik123]

var
  x1, y1,
  CurX, CurY : Integer;
  Capture    : Boolean;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x1 := x;
  y1 := y;
  CurX := x;
  CurY := y;
  Capture := True;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Capture then
  begin
    Canvas.Pen.Mode := pmNot;
    Canvas.Pen.Width := 1;
    Canvas.Brush.Style := bsClear;
    Canvas.Ellipse(x1, y1, CurX, CurY);
    CurX := X;
    CurY := Y;
    Canvas.Ellipse(x1, y1, CurX, CurY);
  end;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Capture then
  begin
    Capture := False;
    Canvas.Pen.Color := clRed;
    Canvas.Pen.Mode := pmCopy;
    Canvas.Brush.Color := clGreen;
    Canvas.Ellipse(x1, y1, CurX, CurY);
  end;
end;

[Человек_Борща]

Рисует круг.

[Richik123]

Сообщение от Человек_Борща

Рисует круг.

ну не круг, а эллипс. нужен к коду комментарий.

[Человек_Борща]

Просите комментировать код того, кто его вам писал.

[саша40]

Лови свои коментарии:

var
  x1, y1,
  CurX, CurY : Integer;
  Capture    : Boolean;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 //записываем переменые по координатам курсора
  x1 := x;
  y1 := y;
  CurX := x;
  CurY := y;
  Capture := True; //разрешаем рисовать
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Capture=truy then
  begin
    Canvas.Pen.Mode := pmNot; //мод карандаша
    Canvas.Pen.Width := 1; //ширина карандаша
    Canvas.Brush.Style := bsClear; //стайл кисти
    Canvas.Ellipse(x1, y1, CurX, CurY); //рисуем элепсис
 //координаты клика
    CurX := X;
    CurY := Y;
    Canvas.Ellipse(x1, y1, CurX, CurY); //опять рисуем
  end;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Capture=true then
  begin
    Capture := False;  //придаем переменой значение
    Canvas.Pen.Color := clRed; //цвет карандаша
    Canvas.Pen.Mode := pmCopy; //мод карандаша на копирующий
    Canvas.Brush.Color := clGreen; //цвет кисти
    Canvas.Ellipse(x1, y1, CurX, CurY); //опять рисуем
  end;
end;