IPWorks8. XMPP

[tompson]

Есть 2 модуля, LoginUnit и XMPPUnit, связанные между собой. В первом юните вызывается процедура из второго. Само описание процедуры во втором юните:

procedure ServerConnect;
var Login: TIniFile;
begin
TipwXMPP.Create(XMPP);
Login:=TIniFile.Create(ExtractFileP ath(Application.ExeName)+'options'+ '.ini');
try
XMPP.IMServer:=Login.ReadString('lo gininfo','server','');
XMPP.Connect(Login.ReadString('logi ninfo','login',''), Login.ReadString('logininfo','passw ord',''));
if XMPP.Connected = true then Connection:=true;
finally
end;
Login.Free;
XMPP.Destroy;
end;

При попытке присвоить имя сервера выскакивает ошибка "project raised exception class EAccessViolation ...". Я так понял, что неправильно инициализирую компонент XMPP:

TJabberData = class (TipwXMPP)
end;
var XMPP: TJabberData;

Кто-нибудь сталкивался с подобным?