TDataset.Locate mit ListView Integer

[Stewag]

In einem TListview habe ich als zweite Spalte eine ID als SubItem gesetzt.

Da SubItem nur Strings akzeptiert ist die ID dort als String abgelegt, obwohl das Feld in der Datenbank ein Integer ist.

Nun will ich per Locate nach der ID suchen:

if tdata1.Locate('ID', VarArrayOf([StrToInt(Listview1.items[i].Subitems.Text)]), []) then schlägt aber fehlt mit dem Hinweis, dass "12345" kein gültiger Integer ist.
Offenbar exportiert Variant hier stets einen String.

Hat jemand eine Idee, wie ein Integer exportiert werden kann?