关于控制台程序显示的问题。 ( 积分: 100 )

在控制台程序里面，我想实时显示当前程序完成任务的百分比。
例如：已经完成 10％
我想实时修改上面的百分比数值，而不是另起一行，
用 Write 和 WriteLn 都不行，求教各位。

delphi早期也有屏幕控制过程。类似与gotoxy等等，可以实现上述功能。

var
hOut: Cardinal;
i: Integer;
Pos: COORD;

begin
{ TODO -oUser -cConsole Main : Insert code here }
hOut := GetStdHandle(STD_OUTPUT_HANDLE);
Pos.X := 0;
Pos.Y := 0;
for i := 0 to 1000 do
begin
Write(i);
Sleep(1000);
SetConsoleCursorPosition(hOut, Pos);
end;
end.

谢谢大家！
再次谢谢 lake_cx 兄!