Графический редактор, Не могу сделать инструмент карандаш Опции

[vadim(b)]

добрый вечер.
Программа прикреплена
такие элементы как линия и квадрат это понятно это элементарные элементы, а вот сделать карандаш т.е чтобы за произвольным движением мыши тянулась такая же линия мне не ясно. если не трудно взгляните на код он должен быть понятен и пожалуйста подскажите как должно всё отрисовываться

[klem4]

Можно попробовать в лоб обрабатывать onMouse (up/down/move)

Но результат не ахти ... чтобы рисовалось нормально надо мышкой медленно водить, как исправить пока не знаю ...

implementation
var
  drawing: Boolean;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  drawing := true;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  drawing := false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if drawing then Form1.Canvas.Ellipse(x, y, x + 3, y + 3);
end;