anchor.diff:  end;
   
   procedure TIRC.SendMessage(const Message: string);
  -begin
  -  if FActiveChannel = '' then
  -     FIdIRC.Raw(Message)
  +var
  +  IsCommand: Boolean;
  +  RawString: string;
  +begin
  +  IsCommand := IsInputCommand(Message);
  +  if (FActiveChannel = '') or IsCommand then
  +  begin
  +    RawString := Message;
  +    if IsCommand then
  +       RawString := FCommands.GetRawCommand(RawString);
  +
  +    FIdIRC.Raw(RawString)
  +  end
     else
       MessageToChannel(Message);
   end;
  
positive.code: interface
  
  uses
    Classes, IdIRC, IdComponent, IdContext;
  
  type
  
  
negative.code: 
  procedure TIRC.OnStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
  begin
    if AStatus = hsConnected then
      FReady := True;
  
    FServerMessage := AStatusText;
    TIdSync.SynchronizeMethod(@SendServerMessage);
  end;
  
  procedure TIRC.OnNotice(ASender: TIdContext; const ANicknameFrom, AHost, ANicknameTo, ANotice: String);
  