Fórum Erro de procedure #263537

Ola, pessoal.
To criando uma tela mdichild com a função abaixo:
procedure TfrmPrincipal.criatela(TFormulario: TFormClass;
Formulario: TForm);
var
found, i: Integer;
begin
found:= -1;
for i:=0 to Screen.FormCount -1 do
if Screen.Forms[i] is TFormulario then
found:= i;
if found >= 0 then
begin
Screen.Forms[found].BringToFront;
Screen.Forms[found].WindowState:= wsNormal;
end
else
begin
Formulario:= TFormulario.Create(Self);
Formulario.Show;
end;
end;

crio um formulario Vendas:
criatela(frmVendas, TfrmVendas);
Só que o formulário criado não fica visivel para os outros formularios, tipo os datamodules que são crados na abertura do sistema. Neste formulario de venda, tenho um currencyedit que deve ser zerado na inserção de um novo registro. Então, no evento onnewrecord do clientedataset no datamodule tá assim:
frmVenda.CurrencyEdit1.value:= 0;
Quando executo e tento inserir um novo registro, da erro de acces violation.
Passando o mause en cima de frmVenda aparece: frmVenda=nil. Então é como se o datamodule não tivesse enxergando o frmvenda.

Se uso desta maneira, funciona sem problemas:
procedure TfrmPrincipal.Venda1Click(Sender: TObject);
var
found, i: Integer;
begin
found:= -1;
for i:=0 to Screen.FormCount -1 do
if Screen.Forms[i] is TfrmVenda then
found:= i;
if found >= 0 then
Screen.Forms[found].Show
else
begin
frmVenda:= TfrmVenda.Create(Self);
frmVenda.Show;
end;
end;