简单问题，请大家帮忙(100分)

看下面的代码怎么错了：
function GetUserInfo: string;
var
adoq: TADOQuery;
cds: TClientDataSet;
dsp: TDataSetProvider;
vData: string;
begin
adoq := TADOQuery.Create(nil);
adoq.Connection := fmLogon.adocMain;
adoq.Active := false;
adoq.SQL.Clear;
adoq.SQL.Add('Select * from T_LOGIN_USER');
adoq.Active := true;

dsp := TDataSetProvider.Create(nil);
dsp.DataSet := adoq;
dsp.Options := [poAllowCommandText];
dsp.Name:='dsp';

cds := TClientDataSet.Create(nil);
cds.ProviderName := 'dsp';
cds.CommandText := 'Select * from T_LOGIN_USER';
cds.Active := true; //出错：Missing Data Provider or Data Packed
vData := cds['Pwd'];
result := vData;
cds.Free;
dsp.Free;
adoq.Free;
end;

奇怪，我已经指定cds.ProviderName := 'dsp1'; 为什么还提示错误

应该在不同的模块中
remotedatamodule 放置dsp

在另一工程（客户端）中设置cds的提供者

我不太清楚，但是否应该有一个注册的问题。我好像记得要把dsp注册一下的。[]

如过在窗体放置静态的控件没有问题。
但是如何注册dsp呢