Регистрация пользователя на Jabber сервере с использованием библиотеки IP*Works(XMPP протокол)

[AndreyK]

Нужно зарегать пользователя и получить от сервера JID.К Серверу соеденился, послал запрос на регистрацию, а дальше не знаю...помогите пожалуйста кто сталкивался с такой проблемой.

procedure TForm1.Button1Click(Sender: TObject);
begin
Jabber := TIpwXMPP.Create(self);
//Соеденение
Jabber.IMServer := 'jabber.ru';
Jabber.IMPort := 5222;
//Запрос на регистрацию
Jabber.QueryRegister(Jabber.IMServe r);
end;
end.