Delphi 编程/GUI - 组件概述

procedure takethis();
var I: integer;

begin
for I := 1 to 10 
  print(I);
end;