Динамическое создание и обращение через FindComponent

[Marsel737]

Всем доброго времени суток.

Столкнулся с такой проблемой, пытаюсь обратиться к Комбобоксу через FindComponent, причём этот комбобокс создаётся динамически, хочу узнать какой текст в этом комбобоксе:

ShowMessage((FindComponent('cbExercises2') as TComboBox).Text);

Но всегда выдаётся пустое сообщение. Вот полный листинг программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzButton, XPMan;

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    RzBitBtn1: TRzBitBtn;
    ScrollBox1: TScrollBox;
    cbExercises1: TComboBox;
    cbSet1: TComboBox;
    edtWeight1: TEdit;
    edtReit1: TEdit;
    RzBitBtn2: TRzBitBtn;
    procedure FormResize(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  cbExercises: TComboBox;
  cbSet: TComboBox;
  FCount: integer = 2;
  FTop: integer = 30;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
begin
  ScrollBox1.Height := Form1.ClientHeight - ScrollBox1.Top - 10;
  ScrollBox1.Width := Form1.ClientWidth - 16;
end;

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
  I: integer;
begin
  cbExercises := TComboBox.Create(Owner);
  with cbExercises do
  begin
    Parent := ScrollBox1;
    Name := 'cbExercises' + IntToStr(FCount);
    Left := 5;
    Top := cbExercises1.Top + FTop;
    Width := 225;
    Height := 21;
    Color := clWhite;
    ItemHeight := 13;
    TabOrder := 1;
    Text := 'Выберите упражнение';
  end;
  cbSet := TComboBox.Create(Owner);
  with cbSet do
  begin
    Parent := ScrollBox1;
    Name := 'cbSet' + IntToStr(FCount);
    Tag := 4;
    Left := 236;
    Top := cbSet1.Top + FTop;
    Width := 80;
    Height := 21;
    Color := clWhite;
    ItemHeight := 13;
    MaxLength := 1;
    TabOrder := 1;
    Text := 'Подходы';
    for I := 1 to 6 do
      Items.Add(IntToStr(I));
  end;
  Inc(FCount);
  FTop := FTop + 30;
end;

procedure TForm1.RzBitBtn2Click(Sender: TObject);
begin
  ShowMessage((FindComponent('cbExercises2') as TComboBox).Text);
end;

end.

[Пепел Феникса]

а если ScrollBox1.FindComponent?

[evg_m]

cbExercises := TComboBox.Create(Owner);
//ComboBox как component будет закреплен за объектом Owner
и среди компонентов Form1 мы его естественно не найдем

cbExercises := TComboBox.Create(self);
//ComboBox как component будет закреплен за этим (self) объектом form1

[Marsel737]

Всем спасибо, теперь всё ясно