[Alegun]

Заполнение вероятно должно быть таким

Код:

...
for i := 0 to 4 do
 begin
  zemlya[i]:=TBitmap.Create;
  zemlya[i].Width:=32;
  zemlya[i].Height:=32;
  zemlya[i].LoadFromFile('E:\MMM\image\zemlya\'+inttostr(i)+'.bmp');

  obekti[i]:=TBitmap.Create;
  obekti[i].Transparent:=true;
  obekti[i].Width:=32;
  obekti[i].Height:=32;
  obekti[i].LoadFromFile('E:\MMM\image\obekti\'+inttostr(i)+'.bmp');
 end;