No puedo matar los componentes

[vtdeleon]

Saludos

Pienso que la mejor solucion para esto, y no complicar mucho, es crear el label de modo que el formulario que cierras se encargue de destruirlo.

Código Delphi [-]
label1:=tlabel.Create(TForm_comparacion);

Con esto el formulario Form_comparacion se encargara de su destruccion.

[Neftali [Germán.Estévez]]

Puede ser que tengas problemas a la hora de eliminar controles de la lista empezando por el principio; Haz ésta pequeña modificación en el código y debería funcionar sin problemas.

Código Delphi [-]
 Var
   n:Integer;
 begin
   // Modificamos el orden del recorrido.
   for n:=(Form_comparacion.ComponentCount -1) downto 0 do begin
 
     if ((Components[n] is Tlabel) and ((Components[n].tag = 5)or(Components[n].Tag = 4))) then
       Tlabel(Components[n]).Free;
   end;
 
   // De paso pon çéste mensaje para comprobar que ya se han eliminado
   MessageDlg('Eliminados los Labels', mtWarning, [mbOK], 0);
 
   form_comparacion.Close;

[ilichhernandez]

Muchas Gracias..... el codigo que has propuesto ha funcionado de las mil maravillas!!!, gracias a todos por sus ayudas !!!!

GRacias.