На форму вручную наносится всего одна метка. Остальные создаются программно:

procedure TForm1.FormCreate(Sender: TObject);

var

i: Byte;

begin

  for i:=1 to 25 do

    begin

      spi4ka[i]:= TLabel.Create(self);//  создадим

      spi4ka[i].Parent:= form1; //  на форме

    end;

  Randomize;

  InicVar;  //  вброс спичек

end;

Подробности в прикреплённом файле.