DBGridコンポーネントのOnCellClickイベントで次のように記述します。
procedure TForm1.DBGrid1CellClick(Column: TColumn);begin Edit1.Text := Column.Field.DisplayText; end;
