同样如何用delphi编写一个无限循环的小程序？

更简单点的:
Procedure .....
begin
while 1>0 do
begin
//事务处理
end;
end;

举个简单的例子吧：
var
i:integer;
begin
i:=0;
while i<1000 do
begin
i:=i+1;
if i=999 then
i:=0;
end;
end;

var
i:integer
begin
i:=1;
while i>0 do
begin
//你要写的程序；
end;
end;

var
i:integer;
begin
i:=0;
while i<1000 do
begin
i:=i+1;
if i=999 then
i:=0;
end;
end;