Параметр процедуры Variant, когда он строковый, то ветвление внутри процедуры не происходит

//Вызов
SetControl(cbbPartMaterial, FieldByName('PartMaterial').AsString);
SetControl(cbbPartProgrammer, cbbPartProgrammerId.Items.IndexOf(FieldByName('ProgrammerId').AsString));
 
//реализация SetControl 
procedure SetControl(AObject: TObject; const Value: Variant);
begin
.......
 
 end else if AObject IS TComboBox then begin
    if VarIsType(Value, varBoolean) then begin
      if Value then begin
        var temp := TComboBox(AObject).OnChange;
        TComboBox(AObject).OnChange := nil;
        TComboBox(AObject).ItemIndex := 0;
        TComboBox(AObject).OnChange := temp;
      end else begin
        var temp := TComboBox(AObject).OnChange;
        TComboBox(AObject).OnChange := nil;
        TComboBox(AObject).ItemIndex := -1;
        TComboBox(AObject).Text := '';
        TComboBox(AObject).OnChange := temp;
      end;
    end else if VarIsType(Value, varString) then begin
      ShowMessage('varString');
      var temp := TComboBox(AObject).OnChange;
      TComboBox(AObject).OnChange := nil;
      TComboBox(AObject).Text := Value;
      TComboBox(AObject).OnChange := temp;
    end else if VarIsType(Value, varInteger) then begin
      var temp := TComboBox(AObject).OnChange;
      TComboBox(AObject).OnChange := nil;
      TComboBox(AObject).ItemIndex := Value;
      TComboBox(AObject).OnChange := temp;
    end;
  end else if AObject IS TComboBoxEx then begin
...........
end;

      SetControl(cbbPartMaterial, 'Привет мир');

procedure SetControl(AObject: TObject; const Value: Variant);
begin
  if not Assigned(AObject) then
    Exit;
 
    if VarIsType(Value, varString) then
      ShowMessage('Value-varString');

showMessage(VarTypeAsText(Value));

  if VarIsType(Value, [varString, varArg, varUString, varUArg, varOleStr, ... ]) then ...