Пишем свой 1 и простой ICQ чекер на Делфи
********************************
И так, начнем:

1. Создаем форму
2. Кидаем на форму компонент ICQClient с закладки Sample
3. Кидаем на форму 2 кнопки (Button), 2 компонента Edit, 4 компонента Label
4. В label1 пишем название программы (например "Чекер ICQ")
5. В label2 пишем слово "От" и ставим его слева от Edit1
6. В label3 пишем слово "До" и ставим его слева от Edit2
7. В label4 пишем слово "ОтКлЮчЕны" и ставим его под всеми компонентами
8. В названии Button1 пишем "Проверить"
9. В названии Button2 пишем "Отключиться"
С цветами и названиями компонентов и формы разберётесь сами (в предыдущих постах указано как менять названия и цвет формы и компонентов)
У меня получилось вот так
Скрин: http://s44.radikal.ru/i105/1002/71/76009650327d.jpg

************************************************************************
С визуальным видом закончили, теперь переходим к коду программы.
************************************************************************
И так, приступим к коду:
**********************************************************************************************

Кликаем на кнопку "Подключиться" и пишем данный код (// так будут обозначаться пояснения к командам) :

procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.UIN:= strtoint(edit1.Text); // в Edit1 будем вводить UIN
icqclient1.Password:= edit2.Text; // в Edit2 будем вводить пароль
icqclient1.Login(); // подключаемся к ICQ
end;

************************************************************************************************

Кликаем на кнопку "Отключиться" и пишем код:

procedure TForm1.Button2Click(Sender: TObject);
begin
label4.Font.Color:= clRed; // Делаем шрифт у label4 красного цвета
label4.Caption:= 'ОффЛаЙн'; // Label4 будет называться ОффЛаЙн
icqclient1.LogOff; // отключаемся от сервера ICQ
end;

***********************************************************************************************

Нажимаем на компонент ICQClient на форме, в Object Inspectir находим Events (события) и там находим событие OnLogin, кликаем по нему и пишем такой код:

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
label4.Caption:= 'ОнЛаЙн';
label4.Font.Color:= clLime;
end;

Думаю объяснять ничего не надо, т.к. этот код почти тот же, что и прошлый, но тут изменен цвет и название label4

**********************************************************************************************

Теперь в ICQClient находим событие ConnectionFailed, кликаем на него 2 раза и пишем:

procedure TForm1.ICQClient1ConnectionFailed(Sender: TObject);
begin
label4.Caption:= 'ОффЛаЙн';
label4.Font.Color:= clRed;
end;

Тут тоже объяснять ничего не надо

************************************************************************************************
Вот и все:)
Благодарю за внимание:)
***************************************************
Вот мой уже готовый Чекер ICQ http://slil.ru/28663083