var
...
MethodVar: TMethod;
  proc: TProc;
begin
...
      TControl (MyComp) .parent := sbShow;
      generalPtr:= TComponentClass (MyClass).MethodAddress('EnterToFrame');

    MethodVar.Data := MyComp1;
    MethodVar.Code := generalPtr;
      Proc := TProc(MethodVar);
        Proc;

  MyClass: TComponentClass;
    MyComp: TComponent = nil;

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

  MyClass:= TComponentClass(GetClass('TFrameOne')); //Где-то здесь при вызове разных фреймов происходит расход памяти
    MyComp := MyClass.create(self);

    TControl (MyComp) .parent := ScrollBox1;

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

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;

procedure TfMain.Work;
var
  generalPtr : Pointer;
begin
...
  generalPtr:= MyComp1.MethodAddress('EnterToFrame');
???
end;