1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure Shot(actor: TImage);

...

var SHOT: array[0..99] of TImage;

...

procedure TForm1.Shot(actor: TImage);
var
x: integer;
begin
For x := 0 to 99 do
  begin
  if SHOT[x] = nil then
    Begin
    SHOT[x] := TImage.Create(PlayPanel);
    Shot[x].picture.loadfromfile(extractfilepath(paramstr(0))+'\Pictures\shot.bmp');
    break;
    end;
  end;
end;