anchor.diff:    ConfigureMemo(Memo);
   end;
   
  -procedure TMainForm.WmAfterShow(var Msg: TMessage);
  +procedure TMainForm.WmAfterShow(var Msg: TLMessage);
   begin
     AfterShow;
   end;
  
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: 
  procedure TMainForm.FormShow(Sender: TObject);
  begin
    PostMessage(Self.Handle, LM_AFTER_SHOW, 0, 0);
  end;
  
  procedure TMainForm.FormWindowStateChange(Sender: TObject);
  