在Delphi中，实现单击同一个按钮改变不同的内容，求源代码

procedure TForm1.FormCreate(Sendor: TObject);
begin
Button1.Tag := 0; // 这一句也可以不要，因缺省的Tag属性取值就是0
// 若有其它，可继续编写
end;

procedure TForm1.Button1Click(Sendor: TObject );
const
// 定义一个数组表示四句
C_asPoet : array[ 1..4 ] of string = (
'床前明月光',
'疑是地上霜',
'举头望明月',
'低头思故乡'
);
begin
if Button1.Tag >= 4 then // 通过Button1.Tag属性来控制选用哪一句，如大于4，就不干了
Exit;
Button1.Tag := Button1.Tag + 1; // 因初值为0，而数组下标从1开始，故先加一
Edit1.Text := C_asPoet[ Button1.Tag ]; // 选用适当的句子
end;

注意：如果Button1.Tag在你的整体逻辑中有其它用途，则将以在TForm中定一个专用的私有变量来计数当前句子。

/