Código Delphi [-] i := Query.FieldByName('Codgo').AsInteger;
i := Query.FieldByName('Codgo').AsInteger;