请教高手我下面代码从cxgrid拖到stringgrid为什么取不到值呢？

用cxgrid显示数据源的数据，想实现把选中的行拖到stringgrid中，发现拖进去没东西，是不是stringgrid的DragDrop中不能进行数据源的操作啊？
procedure TfrmMpa.FormCreate(Sender: TObject);
begin
  cxGrid1DBTableView1.DragMode:=dmAutomatic;
  cxGrid1DBTableView1.OptionsBehavior.DragFocusing:=dfDragOver;
end;procedure TfrmMpa.AdvStringGrid1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if (Source is TcxDragControlObject)then
    Accept:=True;
end;procedure TfrmMpa.AdvStringGrid1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var R:Integer;
    s:string;
begin
  if Trim(AdvStringGrid1.Cells[2,advstringgrid1.Rowcount-1])<>'' then
    AdvStringGrid1.RowCount:=AdvStringGrid1.RowCount+1;
  R:=AdvStringGrid1.RowCount-1;
  AdvStringGrid1.Cells[1,R]:=ADOQuery1.fieldbyname('PN').AsString;//这句话ADOQuery取不到值，数据源本身是有值end;