procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
path:=extractFileDir(Application.ExeName);
//Загрузка картинок танков
for i:=1 to 4 do
for j:=1 to 2 do
begin
Tanki[1,i,j]:=Tbitmap.Create;
Tanki[2,i,j].TransparentColor:=clwhite;
Tanki[1,i,j].LoadFromFile(path+'\img\'+'t'+inttostr(i)+inttostr(j)+'.bmp');
Tanki[2,i,j]:=Tbitmap.Create;
Tanki[2,i,j].TransparentColor:=clWhite;
Tanki[2,i,j].LoadFromFile(path+'\img\'+'q'+inttostr(i)+inttostr(j)+'.bmp');
end;