Problemer med ComponentCount

var
fLabel : TLabel;
I : Integer;

// Opretter en Label
procedure TForm1.Button1Click(Sender: TObject);
begin
  fLabel := Tlabel.Create(Form1);
  fLabel.Parent := Form1;
  fLabel.Top := Form1.Shape1.Top+20 ;
  fLabel.left := Form1.Shape1.Left+50;
  fLabel.Caption := 'Dette er en test';
end;
// Tæller antal Label
procedure TForm1.Button2Click(Sender: TObject);
begin
  For I := 0 To Shape1.ComponentCount -1 Do  //Uanset hvormange label der er
  If (Components[I] is TLabel) Then        //så bliver Shape1.ComponentCount
    Begin                                  //ved med at være 0
      Label2.Caption := IntToStr(I);
    end;
end;
// Sletter Label
procedure TForm1.Button3Click(Sender: TObject);
begin
For I := 0 To Shape1.ComponentCount -1 Do
  If (Components[I] is TLabel) Then
    Begin
      If Assigned(FLabel) then
        begin
          FLabel.Free;
          FLabel:=nil;
        end;
    end;
  end;
end.


// Hvis jeg laver det samme med et Image så vil Shape1.ComponentCount
// godt tælle op