在form1上建立的对象有：Label1~Label2、Edit1（输入数）、Edit2（输出序列）、Button1（确定）等。
Button1按钮的处理程序如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
Edit2.Text := ..;
j := StrToInt(Edit1.Text);
for i := 1 to j do
Edit2.Text := Edit2.Text + IntToStr(i);
end;
当用户输入一个1位正整数数值8，然后按“确定”按钮，在“输出系列”显示结果为 。
A、01234567
B、12345678
C、88888888
D、87654321

---