anchor.diff:  
   implementation
   
  -uses FileUtil, ConfigForm, config, messages, sysutils;
  +uses FileUtil, ConfigForm, config, sysutils;
   
   {$R *.lfm}
   
  
positive.code: end;
  
  function TMainForm.GetChannelTab(const Channel: string): TTabSheet;
  begin
    Result := GetTabByName(Channel);
    if Result = nil then
      Result := NewChannelTab(Channel);
  end;
  
  procedure TMainForm.AddChannelToTree(const Channel: string);
  
negative.code:     procedure OnMessageReceived(const Channel, Message: string);
      procedure OnChannelJoined(const Channel: string);
      procedure RemoveChannelFromList(const Channel: string);
      function RemoveOPVoicePrefix(const Username: string): string;
      procedure RemoveUserFromChannelList(const User: string; const Channel: string);
      function GetTabByName(const Channel: string): TTabSheet;
      function NewChannelTab(const Channel: string): TTabSheet;
  