Código Delphi [-] X := Table1.FieldByName('CODIGO').AsString;
X := Table1.FieldByName('CODIGO').AsString;