请教！MoveTo和lineTo问题？（100分）(100分)

VB中的一个例子，DELPHI中的MoveTo和lineTo是integer类型，怎么解决问题？
var
i:integer;
pi:Real;
x0,y0,x1,x2,y1,y2,r:Real;
begin
pi:=3.141593;
r:=60;
for i:=0 to 4 do
begin
x1:=x0+r*cos(pi/2+i*4/5*pi);
y1:=y0-r*sin(pi/2+i*4/5*pi);
x2:=x0+r*cos(pi/2+(I+1)*4/5*pi);
y2:=y0-r*sin(pi/2+(I+1)*4/5*pi);
form2.Image1.Canvas.MoveTo(x1,y1);
form2.Image1.Canvas.lineTo(x2,y2);
end;
end;

你不能自己取整吗？
...
with Form2.Image1.Canvas do begin
MoveTo(Round(x1),Round(y1));
LineTo(Round(x2),Round(y2));
end;

还有你的x0,y0怎么没有初始化？

取整用round或者trunc

LuJuhe的方法是对的，绝对没问题

高！一点就通，一百分啊！呜呜。。。