在form1中点击button让form2.show;在form2的show 事件中加入以下代码.随机生成.
procedure TForm2.FormShow(Sender: TObject);
var
PicChar: string;
i: Integer;
begin
PicChar := ' ' ;
for i:= 0 to 3 do
begin
PicChar := PicChar+IntToStr(Random(9));
end;
Self.Image1.Canvas.TextOut(10,10,PicChar);
end;
