我模拟了LED数字显示的界面，可是运行有问题 ( 积分: 50 )

我有这样一段代码，是实现模拟LED数字显示的：
procedure tform1.LED(number:integer);
var
i:integer;
k:array[0..5] of integer;
begin
if number>999999 then
begin
number:=0;
end;
for i:=0 to 5 do
begin
k:=0;
end;
i:=0;
while (number)>0 do
begin
k:=number mod 10;
number:=number div 10;
i:=i+1;
end;
for i:=5 downto 0 do
begin
imagelist1.draw(paintbox1.canvas,(5-i)*14,20,k,true);
end;
end;
以上的实现LED数字效果的过程，在BUTTON。CLICK事件中用具体数据调用时，显示的数字和我输入的数字不同。我在imagelist1中添加了10个用bmp格式做的0-9图片.
请高手来看看！！

我有这样一段代码，是实现模拟LED数字显示的：
procedure tform1.LED(number:integer);
var
i:integer;
k:array[0..5] of integer;
begin
if number>999999 then
begin
number:=0;
end;
for i:=0 to 5 do
begin
k:=0;
end;
i:=0;
while (number)>0 do
begin
k:=number mod 10;
number:=number div 10;
i:=i+1;
end;
for i:=5 downto 0 do
begin
imagelist1.draw(paintbox1.canvas,(5-i)*14,20,k,true);
end;
end;
以上的实现LED数字效果的过程，在BUTTON。CLICK事件中用具体数据调用时，显示的数字和我输入的数字不同。我在imagelist1中添加了10个用bmp格式做的0-9图片.
请高手来看看！！