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: begin
    inherited Create(TheOwner);
  
    Application.OnMinimize := @OnApplicationMinimize;
    Application.OnActivate := @ApplicationActivate;
  
    TrayIcon.Icons := ImageListTrayIcons;
  
negative.code: 	  EditInput.SetFocus;
  end;
  
  procedure TMainForm.StopTrayIconAnimation;
  begin
    TrayIcon.Animate := False;
  