Building an IRC Client

Below I've listed the code for one of two options that enable you to send a new message. The other is the button with the caption "Say something." The difference between the two is that this particular option enables you to send a message by pressing the return key.

procedure TForm1.FormDestroy(Sender: TObject);

begin

free;//frees all objects that is created.

end;

procedure TForm1.IdIRC1Connected(Sender: TObject);

begin

Memo1.Lines.Add(' You are connected!');

end;

procedure TForm1.IdIRC1CTCPQuery(ASender: TIdContext;
ANicknameFrom, AHost,

  ANicknameTo, AChannel, ACommand, AParams: String);

begin

memo1.lines.Add('To '+ANickNameto+' Channel: '+AChannel+'Command
'+ACommand+'Aparams '+Aparams);

end;

This event is fired when you receive a C(lient) T(o) C(lient) query. Again, you can show as much or as little information about this query as you like. You have the following information at your disposal: receiver's nickname, hostname, channel name, sender's nickname and the command that the client used for the query.

procedure TForm1.IdIRC1Notice(ASender: TIdContext; const
ANicknameFrom,

  AHost, ANicknameTo, ANotice: String);

begin

memo1.lines.add(ANotice);

end;

This event handles what you do when you receive a notice. There is a great deal of information available about the notice.  I only added the actual content of the notice.  

procedure TForm1.IdIRC1ServerStatsReceived(ASender: TIdContext;

  AStatus: TStrings);

  var

  i:integer;

begin

for i:= 0 to Astatus.Count-1 do begin

memo1.lines.add(AStatus.Strings[i]);

end;

end;

procedure TForm1.IdIRC1Topic(ASender: TIdContext; ANickname,
AHost,

  AChannel, ATopic: String);

begin

memo1.Lines.add(ATopic+'===> '+AChannel)

end;

procedure TForm1.IdIRC1Raw(ASender: TIdContext; AIn: Boolean;

  AMessage: String);

begin

memo1.Lines.Add(Amessage);

end;