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

var ground: array[1..33] of TImage;

procedure TForm1.FormActivate(Sender: TObject);
var a:integer;
begin
for a:=1 to 33 do
begin
ground[a].Create(self);
ground[a].Left:=3;
ground[a].Width:=1;
ground[a].Height:=1;
ground[a].Visible:=true;
ground[a].Enabled:=true;
ground[a].Picture:=boden1.Picture; //LoadFromFile(ExtractFilepath(paramstr(0)) + 'Texturen\Betonrasen.bmp');
ground[a].AutoSize:=true;
ground[a].Top:=30;
ground[a].Left:=(a-1)*ground[a].Width+ground[a].Width;
ground[a].Parent:=form1;
end;
end;					

1:

ground[a].Picture.Assign(Boden1.Picture);					

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

Frame:

public
     procedure weap;

procedure TFrame3.weap;
var a:integer;
begin
for a:=1 to 8 do
begin
weaps[a]:=TImage.Create(self);
weaps[a].Picture.LoadFromFile(ExtractFilepath(paramstr(0)) + 'Bilder\Hud\'+inttostr(a)+'.bmp');
weaps[a].Left:=3;
weaps[a].Top:=7;
weaps[a].Visible:=true;
weaps[a].Enabled:=true;
weaps[a].AutoSize:=true;
weaps[a].Left:=(a-1)*weaps[a].Width+3;
if a > 4 then
begin
weaps[a].Picture.LoadFromFile(ExtractFilepath(paramstr(0)) + 'Bilder\Hud\'+inttostr(a-4)+'.bmp');
weaps[a].Top:=56;
weaps[a].Left:=(a-5)*weaps[a].Width+3;
end;
weaps[a].Parent:=Form1;
end;