Mensaje    Asunto: como enviar mensajes tipo chat en una red interna Responder citando

estoy ayudando en la elaboracion de un programa el cual cuenta con un mensajero instantaneo, los mensajes ya son enviados y los avisos tambien, pero necesito saber como hacer para que no me aparesca el aviso de que tengo un mensaje cada que la otra persona escribe y tambien necesito que me ayuden en el caso de que cuando yo mando un mensaje a todos los que estan conectados tambien me llega a mi, el codigo es el siguiente:"
Qry_mensaje->Active=false;
Qry_mensaje->Active=true;
Qry_mensaje->First();
if(CB_usuarios->Text=="Todos")
{
while(!Qry_mensaje->Eof)
{
NMMsg1->Host = Qry_mensaje->FieldByName("US_IPADDRESS")->AsString;
NMMsg1->FromName = Frm_password->usuario+" "+Frm_password->nombre;
NMMsg1->PostIt(Edit1->Text);
Qry_mensaje->Next();
}
}
else
{
Qry_mensaje->Filtered=false;
Qry_mensaje->Filter="US_USUARIO='"+CB_usuarios->Text+"'";
Qry_mensaje->Filtered=true;
NMMsg1->Host = Qry_mensaje->FieldByName("US_IPADDRESS")->AsString;
NMMsg1->FromName = Frm_password->usuario+" "+Frm_password->nombre;
NMMsg1->PostIt(Edit1->Text);
Qry_mensaje->Filtered=false;
}
Edit1->Text="";


espero que me puedan ayudar.