[ContraVeneno]

asstring en lugar value:

Código Delphi [-]
cadena:=DBGrid1.DataSource.DataSet.FieldByName('CVE_ART').AsString;

tambien podrías hacer la referencia directa sin tener que usar el dbgrid

Código Delphi [-]
with TuDataset do begin //TUDataset es el que tienes ligado a dbgrid1
 cadena:=FieldByName('CVE_ART').AsString;
end; //with

o directo sin usar al variable "cadena"

Código Delphi [-]
with TuDataset do begin //TUDataset es el que tienes ligado a dbgrid1
 MovimientosF.EditCveArt.Text:=FieldByName('CVE_ART').AsString;
end; //with