Unit 'variants' recursively uses itself

[Котофей0]

Я новичок в делфи, но я немного разбираюсь в обьектак, в паскале нормально разбираюсь. В школе сделал на делфи сам решение квадратных уравнений. Решил скачать себе домой делфи, скачал 7Lite запустил пустую программу с пустой формой; открывается Variants.pas и пишется что "Unit 'variants' recursively uses itself"! Я скачал полную версию 7 - та же ошибка.
Я решил внимательно посмотреть на юнит и вот что увидел:
;

procedure VarCopyByRef(var Dest: TVarData; const Source: TVarData);
begin

  case Source.VType and not varByRef of

    varSmallint: Variant(Dest) := PSmallint(Source.VPointer)^;

    varInteger:  Variant(Dest) := PInteger(Source.VPointer)^;

    varSingle:   Variant(Dest) := PSingle(Source.VPointer)^;

    varDouble:   Variant(Dest) := PDouble(Source.VPointer)^;

    varCurrency: Variant(Dest) := PCurrency(Source.VPointer)^;

    varDate:     Variant(Dest) := PDate(Source.VPointer)^;

    varOleStr:   Variant(Dest) := VarCopyNoIndOleStr(Source);

    varBoolean:  Variant(Dest) := PWordBool(Source.VPointer)^;

    varShortInt: Variant(Dest) := PShortInt(Source.VPointer)^;

    varByte:     Variant(Dest) := PByte(Source.VPointer)^;

    varWord:     Variant(Dest) := PWord(Source.VPointer)^;

    varLongWord: Variant(Dest) := PLongWord(Source.VPointer)^;

    varInt64:    Variant(Dest) := PInt64(Source.VPointer)^;



    varVariant:  _VarCopyNoInd(Dest, PVarData(Source.VPointer)^); //  Здесь используется _VarCopyNoInd


    varDispatch,

    varUnknown:  VarCopyNoIndViaOS(Dest, Source);

  else

    if Source.VType and varArray <> 0 then

      VarArrayCopyForEach(Dest, Source, VarCopyNoIndCopyProc)

    else

      VarCopyNoIndDeep(Dest, Source);

  end

end;



procedure _VarCopyNoInd(var Dest: TVarData; const Source: TVarData);

begin

  if Source.VType and varByRef = 0 then

    _VarCopy(Dest, Source)

  else

    VarCopyByRef(Dest, Source);  //Здесь исползуется VarCopyByRef
end;

Эти процедуры используют друг друга!
Что мне делать?

[Пепел Феникса]

проблема в секции uses вообще то.

[Alex11223]

Lite это не неполная (там наоборот больше компонентов, установлены CnPack и GeExpert и т.п.), а сборка.

Кстати, используйте тег [CODE] (значок # ) для сохранения форматирования и подсветки кода в сообщении. Кнопка Правка снизу справа.

А гугление что дало? Вроде довольно много выдает по этой теме, нaпpимер:
http://stackoverflow.com/questions/5...-but-it-doesnt
http://www.sql.ru/Forum/actualthread...tid=624490&hl=

[Котофей0]

Простите я первый раз пишу тут)
На самом деле уже два дня гуглю, но все ответы либо на английском с использованием неизвестных мне терминов, либо на русском но с использованием сленга (ничего не понимаю(();
Ни у кого такой проблемы не было? Ато может посоветует хоть кто)
P. S. Все что смог в гугле вычитать то сделал, но безрезультатно.

[Котофей0]

Я как раз смотрел эти ссылки недавно, ничего не дало.

[Alex11223]

Эти процедуры используют друг друга!

Ну используют и используют. У меня такое же содержимое этих процедур.

Ошибка вроде бы на uses намекает, может там в uses есть он сам? У меня в нем только Types и SysUtils.

[Котофей0]

У меня тоже
Нене ошибка именно на этих процедурах выдается