procedure OnChanMsg(ServerID: Integer; User: TIRCUser; Channel, Text: String);
begin
  // parameters are:
  // 1) colour (use any available Control-K colour)
  // 2) flags (leave blank - does nothing in 1.0 and 1.1)
  // 3) target (name of the window to echo to)
  // 4) text (what to echo)
  // 5) ServerID (Server to echo to - leave blank for active server)

  Echo(1, '', Channel, '<' + User.Nick + '> ' + Text, ServerID);

  // This line stops Bersirc from writing its own version of the 
  // message
  Suppress := True;
end;