相关疑难解决方法(0)

我需要使用游标在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;

我希望有人帮助我谢谢