Código Delphi [-] ... consulta:=consulta+QuotedStr(numero)+' ... ...
... consulta:=consulta+QuotedStr(numero)+' ... ...