Pentru buclă delphi

pentru buclă delphi

var 
i:integer;
Begin
for i:=1 to 20 do 
Begin 
memo1.lines.add(inttostr(i));
end;
end;//this is a delphi simple loop by Piccaboo