anchor.diff:    Memo.Font.Size := DefaultFontSize;
   end;
   
  -procedure TMainForm.AddChannelToList(const Channel: string);
  -begin
  +function TMainForm.FindChannelNode(const Channel: string): TTreeNode;
  +begin
  +  Result := TreeViewUsers.Items.GetFirstNode;
  +  while Assigned(Result) and (UpperCase(Result.Text) <> UpperCase(Channel)) do
  +    Result := Result.GetNextSibling;
  +end;
  +
  +procedure TMainForm.AddChannelToTree(const Channel: string);
  +begin
  +  if FindChannelNode(Channel) <> nil then
  +    Exit;
  +
     TreeViewUsers.BeginUpdate;
     try
       TreeViewUsers.Items.Add(nil, Channel);
  
positive.code:   PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0);
  end;
  
  function TMainForm.NovoCanal(const Canal: string): TStrings;
  var
    Tab: TTabSheet;
    Memo: TMemo;
  begin
    Tab := TTabSheet.Create(PageControl);
    Tab.PageControl := PageControl;
    Tab.Caption := Canal;
  
    Memo := TMemo.Create(Tab);
    Memo.Parent := Tab;
    //TODO: Configurar memo do servidor
    ConfigureMemo(Memo);
  
    AddChannelToList(Canal);
  
    PageControl.ActivePage := Tab;
    Result := Memo.Lines;
  end;
  
  
negative.code: 
  implementation
  
  uses FileUtil, ConfigForm, config, messages, sysutils, strutils;
  
  {$R *.lfm}
  
  