Como é Que Eu Saio Dessa?

[Carlos Rocha]

Ola, estou tendo um probleminha com o datamodule.

Tenho o código abaixo o form do datamodule:

procedure TDMDivan.DSPedidosStateChange(Sender: TObject);
begin
  CPedidos.SpdBtnAlterar.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);
  CPedidos.SpdBtnIncluir.Enabled := QryPedidos.State in [dsBrowse];
  CPedidos.SpdBtnProcurar.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);
  CPedidos.SpdBtnCancelar.Enabled := QryPedidos.State in [dsInsert, dsEdit];
  CPedidos.SpdBtnGravar.Enabled := QryPedidos.State in [dsInsert, dsEdit];
  CPedidos.SpdBtnExcluir.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);
  CPedidos.SpdBtnImprimir.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);

  CPedidos.BitBtnFechar.Enabled := QryPedidos.State in [dsBrowse];
  CPedidos.DBNavigatorPedidos.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);
  CPedidos.pnItem.Enabled := QryPedidos.State in [dsInsert, dsEdit];
  CPedidos.PanelDados.Enabled := QryPedidos.State in [dsInsert, dsEdit];
end;

Preciso criar o form CPedidos antes da primeira linha mas o comando Application.CreateForm(TRPedidos, RPedidos);, não passa o form do datamodule.

procedure TDMDivan.DSPedidosStateChange(Sender: TObject);
begin
  Application.CreateForm(TRPedidos, RPedidos);
  CPedidos.SpdBtnAlterar.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);
  CPedidos.SpdBtnIncluir.Enabled := QryPedidos.State in [dsBrowse];
  CPedidos.SpdBtnProcurar.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);
  CPedidos.SpdBtnCancelar.Enabled := QryPedidos.State in [dsInsert, dsEdit];
  CPedidos.SpdBtnGravar.Enabled := QryPedidos.State in [dsInsert, dsEdit];
  CPedidos.SpdBtnExcluir.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);
  CPedidos.SpdBtnImprimir.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);

  CPedidos.BitBtnFechar.Enabled := QryPedidos.State in [dsBrowse];
  CPedidos.DBNavigatorPedidos.Enabled := (QryPedidos.State in [dsBrowse]) and (not QryPedidos.IsEmpty);
  CPedidos.pnItem.Enabled := QryPedidos.State in [dsInsert, dsEdit];
  CPedidos.PanelDados.Enabled := QryPedidos.State in [dsInsert, dsEdit];
end;

Como é que eu saio dessa?

[Micheus]

Por que é que você tem que criá-lo no evento OnStateChange?

Esse não é o lugar mais indicado para executar este procedimento. você não utiliza botões para mostrar o form CPedidos? Se sim, é antes do show que você terá que criá-lo.