Código Delphi [-]var a:String; begin a:= dbgrid1.Fields[1].AsString; end;
var a:String; begin a:= dbgrid1.Fields[1].AsString; end;