Как нарисовать линию с помощью перетаскивания мышью?
Мне нужно нарисовать линию в 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;
Я надеюсь, что кто-то поможет мне Спасибо