Uso para chamar relatorio
----------------------------------------------
Atenção:
Antes de "implementation" apague: var
frmCadastro: TfrmCadastro;
Va em Projetct--> option= retire da lista auto create e passe para a lista a esquerda
-------------------------------------------------------- procedure TfrmPrincipal.Cadastro1Click(Sender: TObject);
var
frmCadastro:TfrmCadastro; begin
frmCadastro:=TfrmCadastro.Create(Self); Try
frmCadastro.ShowModal; Finally
frmCadastro.Free; end; end;