Fórum Aplicação TDI em ActiveX #329217

Estou usando a seguinte função para criar minhas janelas TDI

procedure NovaAba(FormClass: TFormClass; PageControl: TPageControl; Titulo: String; Imagem: Integer);
Var
TabSheet: TTabSheet;
Form: TForm;
begin
TabSheet := TTabSheet.Create(Application);
TabSheet.PageControl := PageControl;

Form := FormClass.Create(TabSheet);
with Form do
begin
Align := alClient;
BorderStyle := bsNone;
Parent := Tabsheet;
end;
with TabSheet do
begin
Caption := Titulo;
ImageIndex := Imagem;
end;
Form.Caption := Titulo;
Form.Show;
PageControl.ActivePage := Tabsheet;
end;

estou usando dessa forma porque esta dentro de um controle activeX

mas como eu faço pra me referir aos objetos dentro desses forms?

estou tentando fazer dessa maneira:

function ReturnObject(Obj: TObject; PageControl: TPageControl): TObject;
Var
X: Integer;
TabSheet: TTabSheet;
begin
TabSheet.PageControl := PageControl;
for X := 0 to TabSheet.ControlCount - 1 do
begin
if (TabSheet.Components[X] = Obj) then
begin
Result := TabSheet.Components[X];
end;
end;
end;