DBGrid数据的读取问题

窗体Form1中有数据表DBGrid1，表中只有一个字段，且只有一条记录。想让点击这个记录时Edit1中显示记录内容，如何写代码？请各位高手指点。

procedure TSetTable1Frm.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit1.Text:=DataModule1.ClientDataSet1.FieldByName('字段名').AsString;
end;

procedure TSetTable1Frm.DBGrid1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Edit1.Text:=DataModule1.ClientDataSet1.FieldByName('字段名').AsString;
end;