[tebeen]

Вот мне написали это, похоже на Ваше описание, всё равно для меня это трудно: классы, объекты, типы, указатели, наследование, полиморфизм....

Код:

type
  TFrameParentClass=class of TframeParent;
var
  MyClass : TFrameParentClass;
    MyComp: TframeParent = nil;

procedure TfMain.Work;
begin
  if MyComp<>nil then FreeAndNil(MyComp);

  MyClass:= TFrameParentClass(GetClass('TFrameOne')); 

    MyComp := MyClass.Create(self);

    MyComp .Parent := ScrollBox1; 

    MyComp .EnterToFrame; // Теперь можно войти в эту процедуру.
end;