---------------------------------------------------------
:lirc_client!~lirc_clie@81.177.8.166 JOIN :#mirror13
:irc.kgts.ru 353 lirc_client = #mirror13 :lirc_client lenka42197 
:irc.kgts.ru 366 lirc_client #mirror13 :End of NAMES list.
----------------------------------------------------------

char * pch;
pch = strtok (message,"\n");
 while (pch != NULL)
 {
   Form1->Memo1->Lines->Add(pch);
   pch = strtok (NULL,"\n");
 }