anchor.diff:      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 WmAfterShow(var Msg: TLMessage); message LM_AFTER_SHOW;
       procedure AfterShow;
     public
       constructor Create(TheOwner: TComponent); override;
  
positive.code: 
  procedure TMainForm.FormShow(Sender: TObject);
  begin
    PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0);
  end;
  
  procedure TMainForm.FormWindowStateChange(Sender: TObject);
  
negative.code: 
  uses
    Classes, Forms, Controls, Dialogs, StdCtrls, ComCtrls, Menus, ActnList,
    ExtCtrls, LCLIntf, LMessages, LCLType, IRC;
  
  const
       LM_AFTER_SHOW = LM_USER + 300;
  
  type
  
  