anchor.diff:      function NewChannelTab(const Channel: string): TTabSheet;
       procedure SelectChannelTab;
       procedure SetFocusEditInput;
  -    procedure OnApplicationMinimize(Sender: TObject);
       procedure StopTrayIconAnimation;
     public
       constructor Create(TheOwner: TComponent); override;
  
positive.code: procedure TMainForm.TrayIconClick(Sender: TObject);
  begin
    StopTrayIconAnimation;
    if not Visible then
    begin
      Show;
      Application.Restore
    end
    else
      Application.Minimize;
  end;
  
  procedure TMainForm.TreeViewUsersDblClick(Sender: TObject);
  
negative.code: 	  EditInput.SetFocus;
  end;
  
  procedure TMainForm.StopTrayIconAnimation;
  begin
    TrayIcon.Animate := False;
  