Ping-Pong

[anek]

Создала игру, вот код:
var
Form1: TForm1;
PosX,PosY,VelX,VelY:single;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
PosX:=30;
PosY:=50;
VelX:=1;
VelY:=2;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var Overlay:TRect;
begin
PosX:=PosX+VelX;
PosY:=PosY+VelY;

if PosX>ClientWidth-Shape1.Width then
VelX:=-VelX;
if PosY>ClientHeight-Shape1.Height then
VelY:=-VelY;

if PosX<0 then
VelX:=-VelX;

if PosY<0 then
VelY:=-VelY;

Shape1.Left:=Round(PosX);
Shape1.Top:=Round(PosY);
if InterSectRect(Overlay,Shape2.Bounds Rect, Shape1.BoundsRect) then
begin
VelX:=-VelX-Random(5);
VelY:=-VelY-Random(5);
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Shape2.Top:=Mouse.CursorPos.Y-Form1.ClientOrigin.Y;
end;



procedure TForm1.Timer2Timer(Sender: TObject);
var Overlay:TRect;
begin
if Shape3.Top>ClientHeight-Shape3.Height then
Shape3.Top:=Shape3.Top
else
begin
if Shape1.Top>Shape3.Top then
Shape3.Top:=Shape1.Top+Shape3.Width ;
end;
if Shape1.Top<Shape3.Top then
Shape3.Top:=Shape1.Top-Shape3.Width;
if InterSectRect(Overlay ,Shape3.BoundsRect, Shape1.BoundsRect) then
begin
VelX:=-VelX+Random(5);
VelY:=-VelY+Random(5);
end;

end;

procedure TForm1.Image1Click(Sender: TObject);
begin

end;

end.




Дело в том, что я не могу понять, как можно сделать так, чтобы в конце игры выходила надпись Game Over. Буду очень благодарна за помощь.

[doktor255]

В таких случаях выкладывается проект, а не код.

[Человек_Борща]

Укажите на место в коде, где вы ловите завершение игры. Нашли? Вот там и выводите.
Простой вывод: Image.Canvas.TextOut

[anek]

А можно сделать так, чтобы при касании мячика со стенкой к игроку добавлялись баллы?