DBGRID上箭头移动的问题

我用DBGRID显示数据，当用下箭头向下移动，对应的EDIT能同步显示，但用上箭头向上移动，edit显示滞后一条，不同步，但当前记录号是同步的，如何解决请教各位高手。
具体代码如下：
procedure Txc_wldw.dbgrid1drawcolumncell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  edit1.text := xc.adodataset1['xh'];
  edit2.text := xc.adodataset1['zjc'];
  edit3.text := xc.adodataset1['wldwmc'];
  edit4.text := xc.adodataset1['lxdh'];
  edit5.text := xc.adodataset1['lxr'];
  label6.Caption:='当前记录：第'+IntToStr(TStringGrid(DBGrid1).Row)+'条';
  label7.Caption:='共有记录：'+IntToStr(xc.ADODataSet1.RecordCount)+'条';
end;