Developing.ru

Помогите пожалуйста разобраться с TClientDataSet

for i:=0 to length(mas)-1 do
begin
DataModule1.StoredProc.Close;
DataModule1.StoredProc.ProcedureName:='PoiskNomDoc';
DataModule1.StoredProc.Parameters.Clear;
DataModule1.StoredProc.Parameters.Refresh;
DataModule1.StoredProc.Parameters.ParamByName('@nom_doc').Value:=mas[i];
DataModule1.StoredProc.ExecProc;

DataModule1.ClientDataSet.Active:=true;
DataModule1.ClientDataSet.Append;
DataModule1.ClientDataSet.FieldByName('nom_doc_com').AsInteger := DataModule1.StoredProc.FieldValues['nom_doc_com'];
DataModule1.ClientDataSet.FieldByName('nom_doc_priv').AsInteger := DataModule1.StoredProc.FieldValues['nom_doc_priv'];
DataModule1.ClientDataSet.FieldByName('dat_beg').AsDateTime := DataModule1.StoredProc.FieldValues['dat_beg'];
DataModule1.ClientDataSet.FieldByName('dat_end').AsDateTime := DataModule1.StoredProc.FieldValues['dat_end'];
DataModule1.ClientDataSet.FieldByName('nom_scan').AsInteger := DataModule1.StoredProc.FieldValues['nom_scan'];
DataModule1.ClientDataSet.Post;
end;
FormMain.GridRezPoisk.DataSource.DataSet.Open;

Ошибка: Отсутствуют данные поставщика.

ClientDataSet связала с DataSource через MasterSource, а DataSource c StoredProc.
И видимо это неправильно, раз данные не получены...
Подскажите как надо сделать.