Crear y Borrar componentes en tiempo de ejecución

[jzginez]

Hola amigos tengo en una forma un SpinEdit y segun el numero que vaya seleccionando el usuario voy creando una etiqueta, un cuadro de texto y un calendario (al momento solo he provado con crear las etiquetas). Cuando se aumenta el valor en el SpinEdit en tiempo de ejecución se crean las etiquetas restantes, es decir si spinedit es 0 y el usuario sellecciona 2 se crean dos etiquetas, y si despues el usuario selecciona 3 solo se crea una etiqueta mas, el problema lo tengo cuando el usuario disminuye el valor del SpinEdit por ejemplo de 3 a 2 no logro eliminar la etiqueta sobrante, les anexo el código a ver si me pueden ayudar.

Código Delphi [-]
procedure TFrmBACCobros1.SpinEdit1Change(Sender: TObject);
Var
  Etiqueta: TLabel;
begin
  inherited;
  if TotalEtiquetas < SpinEdit1.Value
    Then For i:= TotalEtiquetas to SpinEdit1.Value -1 do
      Begin
        Etiqueta:= TLabel.Create(ScrollBox1);
        Etiqueta.Top:= AltoEtiqueta;
        Etiqueta.Left:= 16;
        Etiqueta.Width:= 65;
        Etiqueta.Height:= 21;
        Etiqueta.Name:= 'pago'+IntToStr(i);
        Etiqueta.Parent:= ScrollBox1;
        Etiqueta.Tag:= i;
        Etiqueta.Caption:= 'Pago '+ IntToStr(i+1);
        AltoEtiqueta:= AltoEtiqueta+ 20;
      End
    Else //Aqui esta mi problema ya probe con RemoveComponent 
          TLabel(FindComponent('pago'+InttoStr(SpinEdit1.Value+1))).DestroyComponents;
  TotalEtiquetas:= SpinEdit1.Value;
end;

Segun yo buscando en el foro solo encuantro como crear componentes no como borrarlos