Código Delphi [-]Var n:Integer; n:=Query1.Fields[0].AsInteger;
Var n:Integer; n:=Query1.Fields[0].AsInteger;