delphi - Firemonkey で実行時に TLabel を作成してから破棄する

Question

実行時に TLabels を生成し、このコードで VertScrollBox に挿入しようとしています。

var
   i, f: integer;
   RT_Label: TLabel;
begin
   f:= 10;
   for i := 0 to 20 do
   begin
        RT_Label := TLabel.Create(Self);
        RT_Label.Name := 'Label' + i.ToString;
        RT_Label.Text := 'SampleLabel' + i.ToString;
        RT_Label.Position.Y := f;
        RT_Label.Align := TAlignLayout.Top;
        RT_Label.Parent := VertScrollBox1;
        inc(f, 15);
   end;
end; 

ラベルは問題なく表示されますが、生成されたラベルを次のコードで解放しようとすると:

var
   i: integer;
   LComponent: TComponent;
begin
   for i := 0 to ComponentCount-1 do
   begin
        if( Components[i] is TLabel )then
         if StartsText('Label', (Components[i] as TLabel).Name) then
         begin
             LComponent := (Components[i] as TLabel);     
             If Assigned(LComponent) then FreeAndNil(LComponent);
         end;
    end;
end;

次に、「引数が範囲外です」というエラーが常に発生します。

実行時に VertScrollBox に追加された TLabels を適切に削除するにはどうすればよいですか?