char str[] =":irc.kgts.ru 001 lenkatester :Welcome to the Internet Relay Network lenkatester!~lenkatest@81.177.8.166";
char * pch;
int i;
extern char  t[];
  Memo1->Lines->Add(str);
  pch = strtok (str," ");
  while (pch != NULL)
  {
Memo1->Lines->Add(pch);
t[i]=pch;
i++;
pch = strtok (NULL, " ");
  }
}