conexao cds dsp sqlqry

class procedure TfrmCadPessoa.AbreForm(NumParam: Variant);
var
  cdsForm: TClientDataSet;
  dspForm: TDataSetProvider;
  qryForm: TSQLQuery;
begin
  if not assigned(frmCadPessoa) then
  begin
   frmCadPessoa := TfrmCadPessoa.Create(Application);
   qryForm := TSQLQuery.Create(Application);
   dspForm := TDataSetProvider.Create(Application);
   cdsForm := TClientDataSet.Create(Application);
   dspForm.DataSet := qryForm;
   cdsForm.ProviderName := ´dspForm´;
   cdsForm.Close;
   cdsForm.fetchParams;
   cdsForm.params.ParamByName(´MATRICULA_PESSOA´).value :=
 NumParam;
    cdsForm.Open;

    frmCadPessoa.Show;
  end;
 end;