anchor.diff:    ConfigureMemo(Memo);
   end;
   
  -procedure TMainForm.WmAfterShow(var Msg: TMessage);
  +procedure TMainForm.WmAfterShow(var Msg: TLMessage);
   begin
     AfterShow;
   end;
  
positive.code: 
  uses
    Classes, Forms, Controls, Dialogs, StdCtrls, ComCtrls, Menus, ActnList,
    ExtCtrls, Windows, IRC;
  
  const
       WM_AFTER_SHOW = WM_USER + 300;
  
  type
  
  
negative.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: TLMessage); message LM_AFTER_SHOW;
      procedure AfterShow;
    public
      constructor Create(TheOwner: TComponent); override;
  