[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;