FormにTTimerとボタンを貼り付けて、、

const defWidth=30; defheight=30;
var images:array[0..4,0..4] of TImage;

procedure TForm1.Button1Click(Sender: TObject);
var
   x,y:integer;
begin
   for x:=0 to 4 do
   begin
      for y:=0 to 4 do
      begin
         images[x,y]:=TImage.create(Form1);
         with images[x,y] do
         begin
            parent:=form1;
            width:=defWidth;
            height:=defHeight;
            top:=y*defHeight;
            left:=x*defwidth;
            canvas.textout(2,2,inttostr(x)+inttostr(y));
         end;
      end;
   end;
   Timer1.enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
   x,y:integer;
begin
   x:=random(5);y:=random(5);
   images[x,y].visible:=false;
   x:=random(5);y:=random(5);
   images[x,y].visible:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Timer1.enabled:=false;
end;
                                     97/10/17(金) 09:17 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。