FindComponent не находит созданный компонент

[DIgorevich]

Создаю в реальном времени компонент (он виден, все, как положено), но при создании следующего компонента, мне бы хотелось узнать ширину только что созданного, а мне выдает ошибку. И даже если узнавать не ширину, а только что присвоенное значение Caption, то показывает пустое сообщение.

             ilbltheme:=TLabel.Create(inputbox);
             ilbltheme.Tag:=getmailXML.Root.Nodes[2].NodeCount - getmailx;
             ilbltheme.Name:='inputtheme'+inttostr(getmailXML.Root.Nodes[2].NodeCount - getmailx);
             ilbltheme.Left:=20;
             ilbltheme.Top:=40*tabsheet1.Tag;
             ilbltheme.Caption:=mailtheme;
             ilbltheme.Visible:=true;
             ilbltheme.Height:=14;
             ilbltheme.AutoSize:=True;
             ilbltheme.Parent:=inputbox;
             ilbltheme.Cursor:=crHandPoint;
             ilbltheme.Font.Size:=8;
             ilbltheme.Font.Style:=ilbltheme.Font.Style+[fsUnderline];

            ShowMessage(IntToStr((FindComponent(Format('inputtheme%d',[getmailXML.Root.Nodes[2].NodeCount - getmailx])) as TLabel).width));

Помогите разобраться, пожалуйста.

[Аватар]

ShowMessage(IntToStr((inputbox.FindComponent...

[DIgorevich]

Аватар, огромнейшее спасибо!