TLabel do Lazarus não está sendo exibido

[Ismaeldm 5]

Boa noite, estou aprendendo a trabalhar com o Lazarus.

Meu professor está ensinando a criar um jogo de xadrez, e por interesse, ja vou tentando montar sozinho hehe.

Entretanto, criei um TLabel e ele simplesmente não é exibido, e não consigo detectar o problema :huh:

 

Abaixo passo o Create do tabuleiro, onde ele cria umas coisas, inclusive o TLabel...

 

 constructor TTabuleiro.Create(Janela: TWinControl);
 var
   l, c: integer;
   cont: byte;
   NomePeca: string;
 begin
   inherited Create(Janela);
   self.setparent(janela);
   self.Top    := 10;
   self.Left   := 10;
   self.Width  := 400;
   self.Height := 400;
   self.Color  := clWhite;
   self.BorderStyle := bsSingle;
   //Criação dos comentários...  VERIFICAR ERROS AQUI
   self.Comentarios            := TLabel.Create(self);
   self.Comentarios.Parent     := self;
   self.Comentarios.Width      := 400;
   self.Comentarios.Height     := 20;
   self.Comentarios.Top        := 410;
   self.Comentarios.Left       := 10;
   self.Comentarios.Alignment  := taCenter;
   self.Comentarios.Color      := clBlack;
   self.Comentarios.Name       := 'LabelComentario';
   self.Comentarios.Visible    := true;
   self.Comentarios.Font.Name  := 'Arial';
   self.Comentarios.Font.Size  := 16;
   self.Comentarios.Caption    := 'Teste';
   //Criação das Casas...
   for l := 1 to 8 do
   begin
     for c := 1 to 8 do
     begin
       self.casas[l, c] := TCasa.Create(Self, l, c);
     end;
   end;
   //Criação dos jogadores...
   self.Jogador1 := Tjogador.Create(self, clBlack);
   self.Jogador2 := Tjogador.Create(self, clWhite);
   //Inicia partida
   self.IniciarNovaPartida;
   //Coloca as imagens nas peças...
   for cont:=1 to 16 do
   begin
     NomePeca := self.Jogador1.Pecas[cont].Tipo;
     self.Jogador1.Pecas[cont].Picture.LoadFromFile('imagens/p_'+NomePeca+'.ico');
     NomePeca := self.Jogador2.Pecas[cont].Tipo;
     self.Jogador2.Pecas[cont].Picture.LoadFromFile('imagens/b_'+NomePeca+'.ico');
   end;
 end;  

 

O código compila e cria as casas, as peças, tudo, mas não aparece o tal label, como mostrado na imagem abaixo:

 

[Chrnos 30]

Não costumo ficar criando componentes em runtime, mas neste trecho:

 

self.Comentarios.Parent     := self;

Não deveria ser:

 

self.Comentarios.Parent := janela;

[bdexterholland 0]

Considerando que o texto deveria ter sido desenhado no canoas do form e nao do tabuleiro, realmente o parent foi informado errado.