[cd.rafael]

Cordial Saludo,

    Application.CreateForm(TfrmBusqueda, frmBusqueda);
    frmBusqueda.gStEsquema := pStEsquema;
    frmBusqueda.gStTabla := pStTabla;
    frmBusqueda.gScxConexion := pQry.SQLConnection;
    frmBusqueda.ShowModal;
    if (frmBusqueda.gBlCancela) then
    begin
        Exit;
    end;
    if (Length(frmBusqueda.gStSQLAdd) > 0) then
    begin
        pClientDataSet.Close;
        pQry.Close;
        if (Pos('where', frmBusqueda.gStSQLAdd) = 0) and (Pos('where', LowerCase(pStSQL)) = 0) then
        begin
            pQry.SQL.Text := pStSQL + ' where 1 = 1 ' + frmBusqueda.gStSQLAdd;
        end else begin
            pQry.SQL.Text := pStSQL + ' ' + frmBusqueda.gStSQLAdd;
        end;
        pQry.Open;
    end else begin
        pQry.SQL.Text := pStSQL;
        pQry.Open;
    end;
    try
        pQry.Refresh;
        pClientDataSet.Open; //Aquí Genera el Error Catastrófico!!!
        pClientDataSet.Refresh;
    finally;
    end;

Muchas Gracias.