Fórum Ribbon + TDI #589871

Boa tarde galera. Tenho uma rotina para criar e chamar abas em um pagecontrol.
procedure TfrmPrincipal.CriarAba(clsForm: TFormClass; Index: Integer);
var
TabSheet: TTabSheet;
Form: TForm;
begin
Form := clsForm.Create(TabSheet);

if AbaExiste(Form.Caption) then
Exit;

TabSheet := TTabSheet.Create(Self);

with TabSheet do
begin
PageControl := PageControl1;
Caption := Form.Caption;
ImageIndex := Index;
end;

with Form do
begin
Align := alClient;
BorderStyle := bsNone;
Parent := TabSheet;
Show;
end;

PageControl1.ActivePage := TabSheet;
end;

Meu problema é que se chamo a rotina através de um button no form, a rotina é chamada, cria e exibe a tabsheet sem problemas. No entanto, se coloco a chamada em um mainmenu ou ribbon retorna o erro de acess violation. Como resolver?

[]´s

Stclara.