请问如何动态画一条直线

Question

我是这样画的for i:=0 to 250 do
  canvas.lineto(i,i);可是太快了，看不到动态效果我想这么应该可以for i:=0 to 250 do
begin
  canvas.lineto(i,i);
  延时10毫秒 //问题一：这句怎么写？？
end;问题二：不知道还有没有别的好方法

Answer 1

var
  i: Integer;
begin
  for i:=0 to 250 do
  begin
    Canvas.LineTo(i, i);
    Sleep(10);
  end;
end;感谢上面回答的兄弟。
我完善了一下。