[roman]

Recorre el ciclo alrevés y olvídate del try-except:

Código Delphi [-]
for I := ComponentCount -1 downto 0 do
  RemoveComponent(Components[i]);

// Saludos