[taiwan]

var s:string;

for i:=1 to 10 do begin
s:=inttostr(i);
edit1.text:=edit1.text+' '+s;
end;