[Zo_Omer]

Вписал ваш код:

Код:

procedure TForm1.Timer9Timer(Sender: TObject);
begin
Image2.Top:=
Image2.Top-5;

if  (Image2.Top>=(Shape1.Top + 30)
  and
   ((Image2.Top+Image2.Height)<=(Shape1.Top + 30)
  and
   (Image2.Left<=(Shape1.Left + 30)
  and
   ((Image2.Left+Image2.Width)>=(Shape1.Left + 30) then

 begin
  Shape1.Visible:=false;
  end;
end;

Выдал ошибку :

')' expected but 'THEN' found

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

Вот критерий попадания центра Shape1 внутрь Image2

P.S Я, наверное, забыл объяснить, Image2 - это пуля. Shape1 - это мишень.