delphi程序的问题

var
shijian:tdatetime; //定义变量
hour,min,sec,msec:word; //定义变量
begin
self.refresh;//刷新，可能是清除原来画上的内容
shijian:=now; //shijian变量赋值为当前时间
decodetime(shijian,hour,min,sec,msec); //把当前的时间拆分成小时、分、秒、毫秒
with canvas do //画布，下面图形在此画布上绘制
begin
//时针
pen.Width:=3; //画笔线宽3
pen.Color:=clblack; //画笔颜色为clblack
moveto(200,200); //从中心坐标为200，200开始
lineto(200+round(sin(hour/12*2*pi)*45),200-round(cos(hour/12*2*pi)*45)); //画线并根据hour计算角度
pen.Width:=2; //画笔线宽2
//分针
pen.color:=clblue; //画笔颜色为clblue
moveto(200,200); //从中心坐标为200，200开始
lineto(200+round(sin(min/60*2*pi)*60),200-round(cos(min/60*2*pi)*60)); //画线并根据min计算角度
//秒针
pen.Width:=1; //画笔线宽1
pen.Color:=clred; //画笔颜色为clred
moveto(200,200); //从中心坐标为200，200开始
lineto(200+round(sin(sec/60*2*pi)*70),200-round(cos(sec/60*2*pi)*70)); //画线并根据sec计算角度
end;

var
shijian: tdatetime;
hour, min, sec, msec: word;
begin