Warum gibt es hier einen VarCastError?

[BlueStarHH]

Ich habe die folgende Funktion:

Delphi-Quellcode:

function VarToIntDef(const V: Variant; const ADefault: Integer): Integer;
begin
  if VarIsOrdinal(V) and not VarIsEmptyOrNull(V) then
    Result := V
  else
    Result := ADefault;
end;

Die hat bei einen Kunden einen VarCastError (@VarToInteger) ausgelößt. Wo genau und warum wurde nicht übermittelt und ich weiß auch nicht welcher Kunde.
Wo liegt der Fehler? Auf was müsste ich V setzen um den VarCastError auszulösen?