Wenn du den Fehler erst beim Aufruf von TADOQuery.FieldValues bekommst, dann liegt das Problem vielleicht an Delphis Variant record.
Die Daten wurden ja schon in der
Query abgelegt -> Schaue mal, ob es irgendeine Funktion wie FieldAsIn64 o.ä. gibt um dir so große Zahlen auszuspucken.
Wenn es partout nicht geht kannst du auf DOA ausweichen, oder in deine Abfrage ein " to_char(VS_ID) strVS_ID" einbauen.