Как нарисовать линию с помощью перетаскивания мышью?

Мне нужно нарисовать линию в Delphi с помощью курсора, я уже создал код линии, но я могуне понимаю, что делать дальше? Как это можно сделать, я нажимаю кнопку мыши, когда нужно начать линию, и перетаскиваю мышь, или просто отпускаю кнопку мыши и рисую линию.

procedure TForm1.Button1Click(Sender: TObject);
var 
  x0, y0, x1, y1: Integer;
begin
  x0 := StrToInt(Edit1.Text);
  y0 := StrToInt(Edit2.Text);
  x1 := StrToInt(Edit3.Text);
  y1 := StrToInt(Edit4.Text);
  Brezenhems(x0 , Y0 , X1 , Y1);
end;

Я надеюсь, что кто-то поможет мне Спасибо