Problema com formCreate em Delphi (Está me deixando louco)

Bom dia Srs., estou com o seguinte problema, tenho o form principal que tem um botão, dentro deste botão faz um nomeDoForm := TNomeDoForm.Create(self);

até ai tudo bem, mas quando ele executa o Create ele já está pulando para o onShow deste form e tem mais comandos abaixo deste (nomeDoForm := TNomeDoForm.Create(self)), inclusive tags que fazem diversos apontamentos visuais.

Observação: já fiz o seguinte deixei todo o código comentado apenas com o este código Create, tirando o show que tem mais abaixo enfim, pois mesmo assim ele faz o show.

Segue código ...

 FormCadVestimenta := TFormCadVestimenta.Create(Self);
 if NovoLogin then
 begin
 FormAcess := TFormAcess.Create(self);
 FormAcess.sistema := 'LABPAPEL';
 FormAcess.CodMenu := FormAcess.RetornarCodMenu(FormAcess.RetirarCaracterAtalho(TMenuItem(Sender).Name));
 FormAcess.codusuario := codUsu;
 if not Admin then
 begin
 FormAcess.VerificaDireitos;
 DataModule1.QryVestim.Close;
 if not FormAcess.Alterar then
 DataModule1.QryVestim.LockType := ltReadOnly;
 FormCadVestimenta.BtnGravar.Enabled := FormAcess.Alterar;
 FormCadVestimenta.BtnCancelar.Enabled := FormAcess.Alterar;
 FormCadVestimenta.BtnIncluir.Enabled := FormAcess.Novo;
 FormCadVestimenta.BtnExcluir.Enabled := FormAcess.Excluir;
 end;
 FormAcess.logAcesso;
 FormAcess.Free;
 end;
 if Sender = FormMenu.Vestimentas1 then
 FormCadVestimenta.Tag := 1;
 if Sender = FormMenu.Cordas1 then
 FormCadVestimenta.Tag := 2;
 DataModule1.QryVestim.Open;
 FormCadVestimenta.Show;

Observação 2: eu tenho outros forms que fazem a mesma coisa, e funcionam perfeitamente, também já verifiquei se não há algum show para o form perdido no meio do código, mas não tem.

Obrigado a todos até o momento.