[poli-smen]

Сообщение от stalker_174

таймер постоянно в случайном порядке двигает картинку на форме. Проблема в том, что клик на картинку мышкой (попадание в цель) должен зачисляться как очко в какую-нибудь переменную и выводиться в Label1 на форме, а если "очков" станет 10, то showmessage('Вы выиграли!'); Помогите плз
И что бы картинка не выходила за грани формы

Код:

procedure TForm1.Image1Click(Sender: TObject);
var
  x: Integer;
begin
  x := StrToIntDef(Label1.Caption, 0) + 1;
  Label1.Caption := IntToStr(x);
  if x = 10 then ShowMessage('Вы выиграли!');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Image1.Top := Random(Height - Image1.Height);
  Image1.Left := Random(Width - Image1.Width);
end;