Código Delphi [-] codigo:= ADOQuery1.FieldValues['Codigo'];
codigo:= ADOQuery1.FieldValues['Codigo'];