[lmikle]

ну, если ты уверен в данных, то можно просто присвоить (либо использовать спец. функцию):

Код:

var
  v : Variant;
  i1, i2 : Integer;
begin
  v := 123;
  i1 := v;
  i2 := VarAsType(v, varInteger);
end;

Если не уверен, то лучше через TryStrToInt (вариант всегда можно конвертировать в строку):

Код:

var
  v : Variant;
  i : Integer;
begin
  v := 123;
  i := StrToIntDef(v, 0);
end;