FindComponent возвращает nil при поиске компонентов на TabbebNoteBook

[[MoNAMur]]

Ситуация такая:
Создаю при клике на кнопку вкладку у TabbebNoteBook. На вкладке создаю другие компоненты(RichEdit и т.д.).
Необходимо в дальнейшем при клике на другую кнопку считать содержимое RichEdit'a в переменную.

создаю так

...
with TabNotebook do
begin
MessageForm.TabbedNotebook1.Pages.Add(TabName);
PageIndex := MessageForm.TabbedNotebook1.GetIndexForPage(TabName);
TabPage := TTabPage(Pages.Objects[PageIndex]);
...
    REdt2 := TRichEdit.Create(TabPage);
            try
              REdt2.Name := 'REM'+ TabName;
              REdt2.Parent := TabPage;
              REdt2.Width := 467;
              REdt2.Height := 152;
              REdt2.Top := 273;
              REdt2.Left := 16;
              REdt2.ScrollBars := ssVertical;
              REdt2.Font.Charset := RUSSIAN_CHARSET;
              REdt2.Font.Color := clWindowText;
               REdt2.OnClick := MessageForm.OnClick;
            except
              REdt2.Free;
            end;
...
end;

TabName - для разных вкладок разное.
Затем, в обработчике пытаюсь забрать содержимое этого RichEdit так

procedure TMessageForm.FormClick(Sender: TObject);
var
    TabName : string;
    objectName : string;
    MyObj : TComponent;
begin
       TabName := TabbedNotebook1.ActivePage; // активная вкладка (является в дальнейшем частью имени компонентов)

      if (Sender is TSpeedButton) then objectName := (sender as TSpeedButton).Name;

       // click action
       if(objectName = ('MCH'+ TabName)) // если нажата нужная мне кнопка
       then
          begin
            MyObj := FindComponent('REM'+ TabName);
            if MyObj <> nil then
            ShowMessage(TRichEdit(MyObj).lines.text);
          end;
end;

ну соответственно showmessage не срабатывает.
наверняка я где то что-то пропустил, буду оч признателен если покажете правильный способ

спрашиваю у вас, так как полтора часа гугления не дали результатов, равно как и найденный код.

[evg_m]

procedure TMessageForm.FormClick(Sender: TObject);
begin
.............................
           MyObj := FindComponent('REM'+ TabName);

Чьи компоненты будет искать форма. Свои.

а нужный TabPage свои.

        MyObj := TabPage.FindComponent('REM'+ TabName);

[[MoNAMur]]

хммм, точно... спасибо