Динамическое создание компонента и работа с ним

[The SCS]

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

как раз с выделенным возникли проблемы. я никак не могу понять как найти вкладку, костыль с циклом только добавил access violation..

P.S. класс имеет параметр, в котором содержит название команды.

[The SCS]

Пробую так

procedure TfrmMain.IrcPrivMsg(Nickname, Ident, Mask,
  Content: String);
var
  Sheet, Fnd: TChannelSheet;
  i: integer;
begin

{    Fnd := TChannelSheet(FindComponent('Sheet'));
    if Fnd.Nickname = Nickname then
    begin
      Fnd.AddMessage(Decode(content));
      exit;
    end;  }
    if FindComponent('Sheet')<>nil then Messagebeep(0);
    
    for i := 0 to ComponentCount-1 do
      if Components[i] is TChannelSheet then
      MessageBeep(0);
        {if TChannelSheet(Components[i]).Nickname = nickname then begin
          Fnd := TChannelSheet(Components[i]);
          Fnd.AddMessage(Decode(Content));
          frmPm.Show;
          exit;
        end;  }



    Sheet := TChannelSheet.Create(frmPm.PageCtrl, frmPm.Icons, irc, Nickname, Nickname,
      frmPm.rv, frmPm.rve);
    Sheet.AddMessage(Decode(Content));

    frmpm.Show;
end;

но цикл вообще ничего не находит (бипа нету).

[evg_m]

но цикл вообще ничего не находит (бипа нету).

ответ тот же что и здесь

ищешь на форме, а положил на PageControl

Sheet := TChannelSheet.Create(frmPm.PageCtrl ,