Delphi визуалды программалау ортасы

EraseFace(fx,fy);

// бет бейненің жаңа қалпы

fx:= Random(ClientWidth-30);//30 – бет бейне диаметрі

fy:= Random(ClientHeight-30);

PaintFace(fx,fy);

end;

procedure TForm1.FormCreate(Sender: TObject);

// бет бейненің бастапқы қалпы

fx:=100;

fy:=100;

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if (x > fx) and (x < fx+30) and

(y > fy) and (y < fy+30)

then begin

// бет бейнені шерту

inc(p);

if n = 10 then

begin
// ойын аяқталды

Timer.Enabled := False; //таймерді тоқтату

ShowMessage('Атылғаны: 10. Тигені: ' + IntToStr(p)+'.');

EraseFace(fx,fy);

Label1.Visible := True;

Button1.Visible := True;

// енді батырма мен хабарлама қайта көрінді

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Visible := False; // хабарламаны жасыру

Timer.Enabled := True; // таймерді іске қосу

end;

end.