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