anchor.diff:  
   uses
     Classes, Forms, Controls, Dialogs, StdCtrls, ComCtrls, Menus, ActnList,
  -  ExtCtrls, LCLIntf, LMessages, LCLType, Buttons, IRC, ChannelList, TreeviewHelper, sysutils;
  +  ExtCtrls, LCLIntf, LMessages, LCLType, IRC, ChannelList, sysutils;
   
   const
        LM_AFTER_SHOW = LM_USER + 300;
  
positive.code: 
    TMainForm = class(TForm)
      ActionExit: TAction;
     ActionCloseChannel: TAction;
     ActionCloseTab: TAction;
      ActionChat: TAction;
      ActionCloseChat: TAction;
      ActionJoinChannel: TAction;
  
negative.code:     procedure SetFocusEditInput;
      procedure WmAfterShow(var Msg: TLMessage); message LM_AFTER_SHOW;
      procedure AfterShow;
      procedure OnApplicationMinimize(Sender: TObject);
    public
      constructor Create(TheOwner: TComponent); override;
      destructor Destroy; override;
  