もぐらたたきのプログラムを作ってみます。まずは、気難しい事はなしにして、ゲームを作りましょう。分からない
所は、クリックして下さい。なんとなくの説明を見ることが出来るかも！？
左のような文字を書いてください。あとモグラの絵を描くのを忘れずに。デルファイが勝手に書いてくれる所もあります。

unit mogura;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
　　　 Edit1: TEdit;　
　　　　 Image1: TImage;
　　　　 Image2: TImage;
　　　　 Image3: TImage;
Image4: TImage;
Image5: TImage;
Timer1: TTimer;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;
i, point:integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin
randomize;
i:=random(5);
if i=0 then image1.visible:=true;
if i=1 then image2.visible:=true;
if i=2 then image3.visible:=true;
if i=3 then image4.visible:=true;
if i=4 then image5.visible:=true;
point:=0;
timer1.enabled:=true;
label1.visible:=false;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
image1.visible:=false;
point:=point+1;
edit1.text:=inttostr(point);
i:=random(5);
if i=0 then image1.visible:=true;
if i=1 then image2.visible:=true;
if i=2 then image3.visible:=true;
if i=3 then image4.visible:=true; if i=4 then image5.visible:=true; end;

procedure TForm1.Image2Click(Sender: TObject);
begin
image2.visible:=false;
point:=point+1;
edit1.text:=inttostr(point);
i:=random(5);
if i=0 then image1.visible:=true;
if i=1 then image2.visible:=true;
if i=2 then image3.visible:=true;
if i=3 then image4.visible:=true;
if i=4 then image5.visible:=true;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
image3.visible:=false;
point:=point+1;
edit1.text:=inttostr(point);
i:=random(5);
if i=0 then image1.visible:=true;
if i=1 then image2.visible:=true;
if i=2 then image3.visible:=true;
if i=3 then image4.visible:=true;
if i=4 then image5.visible:=true;
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
image5.visible:=false;
point:=point+1;
edit1.text:=inttostr(point);
i:=random(5);
if i=0 then image1.visible:=true;
if i=1 then image2.visible:=true;
if i=2 then image3.visible:=true;
if i=3 then image4.visible:=true;
if i=4 then image5.visible:=true;
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
image4.visible:=false;
point:=point+1;
edit1.text:=inttostr(point);
i:=random(5);
if i=0 then image1.visible:=true;
if i=1 then image2.visible:=true;
if i=2 then image3.visible:=true;
if i=3 then image4.visible:=true;
if i=4 then image5.visible:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.enabled:=false;
image1.visible:=false;
image2.visible:=false;
image3.visible:=false;
image4.visible:=false;
image5.visible:=false;
label1.visible:=true;
end;

end.

presented by bbjapan.com