Лидеры

Дело в том, что класс TThread является частью библиотеки RTL и не зависит от VCL никаким способом. Поэтому, это сообщение может появится из-за ошибочного подключения файлов VCL. Так же RTL полностью кроссплатформенна. Поэтому работа с классом TThread одинакова для всех платформ. Резюме Нужно проверить все файлы проекта и убедиться, что они не используют файлы VCL. А именно Unit2.cpp, поскольку речь в сообщение об ошибке идет именно об этом модуле. Проверил на чистом проекте, описанное вами поведение в RAD Studio XE6 Beta, не обнаружил.

Лучше вам показать свой код. Но если легче станет - то вот: unit uReger; interface { //////////////////////////////////////////////////////////////////////////// } { ..............Компонент.для.регистрации.персонажей.TgReger.................. } { ...........................Версия 2.0....................................... } { ................Автор:.Сысоев.Максим........................................ } { .............................Орловка,.2.0.1.3.г............................. } { ToDo * Не получается запросить код восстановления } { //ver 2.0.2 - 16.01.2014 = Возможность рандомного выбора пола // ver 2.0.1 - 28.12.2013 = Полная(Нужно еще тестировать) работоспособность в Android // ver 2.0 - 25.12.2013 = Рефракторинг кода = Профиксил много ошибок = Наконец-то запустился регер на Anroid = Увеличил живучесть персов } { ver < 2.0 * Основа кода } uses {****************************************} idHTTP, GHash73, uMiniUtils, {****************************************} System.SysUtils, System.Classes; type TgReger = class; { ************************************************************************** } TUser = record Nick, Id, PassWord, Recover, Status: string; end; TProgressType = (ptStart, ptGetInfo, ptSendReg, ptGetKapcha, ptGetRecover); { ************************************************************************** } TOnNeedKapcha = procedure(Sender: TObject; Const Kapha: TStream) of object; TOnError = procedure(Sender: TObject; const ErrorType, Msg: string) of object; TOnGoodReg = procedure(Sender: TObject; const AUser: TUser) of object; TOnProgress = procedure(Sender: TObject; const Range: TProgressType) of object; { ************************************************************************** } gSex = (gsMan, gsGirl, gsRandom); gCharMap = (cmRU, cmEN, cmDigit, cmRuDigit, cmEnDigit); { ************************************************************************** } TRegerThread = class(TThread) private gReger: TgReger; protected procedure Execute; override; public constructor Create(AgReger: TgReger); end; { ************************************************************************** } TgReger = class(TComponent) private fOnError: TOnError; fOnKapcha: TOnNeedKapcha; fOnGoodReg: TOnGoodReg; fOnProgress: TOnProgress; { Private declarations } fHTTP: TIdHTTP;