IRC подключиться, отправлять, принимать сообщения.

[ZBEP]

Здравствуйте!
[Delphi 2009]
Пишу програму которая подключается к серверу с помощью TidIRC и т.д.
С подключением разобрался, вроде подключается, а вот насчет получения/отображения сообщений - что-то не могу разобраться..

Вот часть кода:

procedure TForm1.Button2Click(Sender: TObject);
begin
If edit5.text<>'' then
idIRC1.Host:=edit5.Text
else
richedit1.text:=richedit1.text+'>Укажите сервер'+#13;

If edit6.Text<>'' then
idIRC1.Port:=StrToInt(edit6.Text)
else
richedit1.text:=richedit1.text+'>Укажите порт'+#13;

If (edit5.text<>'') and (edit6.text<>'') then
if idIRC1.Connected=True then
richedit1.text:=richedit1.text+'>Уже подключен!'+#13
else
begin
idIRC1.Connect();
if idIRC1.Connected=true then
richedit1.text:=richedit1.text+'>Вроде подключился..'+#13
else
richedit1.text:=richedit1.text+'>Вроде НЕ подключился..'+#13;
end;
end;

Вот попытался отослать сообщение, но как понять дошло оно или нет? И как получить ответ от серва?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
idIRC1.say(edit6.text,edit1.text);
if idIRC1.Connected=true then
richedit1.text:=richedit1.text+'>Отпр: '+edit1.text+#13
else
richedit1.text:=richedit1.text+'>Не подключен!'+#13;
end;
end;

П.с.
Авторизация происходит после подключения.
При посыле сообщения "NICK nick\n" , nick -- мой ник.

[ZBEP]

Подскажите кто-нибудь, как отобразить входящие сообщения, те что сервер шлет мне. Я найти не могу(