请教关于dbgrid记录移动时赋值的问题!(30分)

然后点击一条记录,那记录就添写到edit1那里去!
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
    edit1.Text:=adoquery1.Fieldbyname('Wname').value;
end;这是将查到的记录前移:
if not adoquery1.Bof then
   begin
      adoquery1.Prior;
   end;
但查询出来有几条记录,我想点这个前移的按钮,数据也会写到edit那里去?该再那里写语句?为什么再oncloumnmove那里写语句也每反映啊?!