Con lo dicho por judit25 va que chuta, pero si lo quieres hacer todo por código... pues se hace
Para el caso de un DBGrid que puede estar asociado a varias consultas SQL al mismo tiempo, esa solución no sirve de mucho; Para un TTable que no tenemos los campos persistentes creados pues más de lo mismo, así que lo hacemos por código:
Código Delphi
[-]
procedure TForm5.DBGrid1CellClick(Column: TColumn);
begin
mclave := (query1.fieldByname ('clv_art').asString);
mdescr := (Query1.fieldByname ('descr').asString);
Table2.FieldsDefs.Update; DBGrid1.Columns.RebuildColumns;
form3.table2.edit;
form3.table2.fieldbyname ('clv_art_ok').asstring := mclave;
form3.Table2.Post;
end;
Saludos