[nbstudio]

Нашел решение, вот и код:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image2.top:=Random(Form1.height) + 1;
Image2.left:=Random(Form1.width) + 1;
end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if StrToInt(Label1.Caption) < 10 then
begin
 Image2.top:=Random(Form1.height) + 1;
 Image2.left:=Random(Form1.width);
 Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);
 Timer1.Interval := Timer1.Interval - 100;
end;
if Label1.Caption = '10' then
begin
  Timer1.Enabled:=false;
  Label1.Caption:='0';
  showmessage('Вы выиграли!');
end;
end;

Admin: Не забываем про теги!