1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button5Click(Sender: TObject);
var text, nick, join: String;
begin
text := edit1.Text;
  if text = '/' then
    if text = '/nick' then
      nick := ???
    if text = '/join' then
      join := ???
  else
IDIRC1.Say('#chatprog', text);
Memo1.Lines.add(IdIRC1.Nick + ': ' + text);
edit1.Text := '';
end;					

1:
2:
3:
4:
5:

if Pos('/nick',Text) > 0
then nick := Copy(Text, 7, Length(Text));

if Pos('/join',Text) > 0
then join := Copy(Text, 7, Length(Text));