anchor.diff:  
   procedure TMainForm.FormShow(Sender: TObject);
   begin
  -  PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0);
  +  PostMessage(Self.Handle, LM_AFTER_SHOW, 0, 0);
   end;
   
   procedure TMainForm.FormWindowStateChange(Sender: TObject);
  
positive.code:     procedure RemoveUserFromChannelList(const User: string; const Channel: string);
      function GetTabByName(const Channel: string): TTabSheet;
      function NewChannelTab(const Channel: string): TTabSheet;
      procedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW;
      procedure AfterShow;
    public
      constructor Create(TheOwner: TComponent); override;
  
negative.code: 
  uses
    Classes, Forms, Controls, Dialogs, StdCtrls, ComCtrls, Menus, ActnList,
    ExtCtrls, LCLIntf, LMessages, LCLType, IRC;
  
  const
       LM_AFTER_SHOW = LM_USER + 300;
  
  type
  
  