anchor.diff:  
   procedure TMainForm.AddUserToTreeView(const User: TUser; const Channel: TChannel);
   begin
  - User.Node := TreeViewUsers.Items.AddChild(TTreeNode(Channel.Node), User.NickNameInChannel);
  - TreeViewUsers.AlphaSort;
  +	User.Node := TreeViewUsers.Items.AddChild(TTreeNode(Channel.Node), User.NickNameInChannel);
  +	TreeViewUsers.AlphaSort;
   end;
   
   procedure TMainForm.PageControlChange(Sender: TObject);
  
positive.code: procedure TMainForm.TimerConnectionTimer(Sender: TObject);
  begin
    if FIRC.IsConnected then
    begin
  		StatusBar.Panels[0].Text := Format('Connected. %s@%s', [FIRC.NickName, FIRC.HostName])
    end
    else
  	  StatusBar.Panels[0].Text := 'Disconnected :(';
  end;
  
negative.code:   Tab: TTabSheet;
    Memo: TMemo;
  
  	function NickNameInMessage: Boolean;
  	begin
  		Result := (Pos(FIRC.NickName, Message) > 0);
  	end;
  
   function AnimateTrayIcon: Boolean;
   begin
     Result := (not OwnMessage) and (not Application.Active) and ((Channel[1] <> '#') or NickNameInMessage)
   end;
  
  begin
  