Quote Originally Posted by WILL
Too true! But I wouldn't want to have to 'speak' it. :lol:
and why is that?

Code:
Self.ActiveLanguage:= Delphi;
If Sender is TPerson then
  If TPerson&#40;Sender&#41;.ActiveLanguage <> Self.ActiveLanguage then
    If TPerson&#40;Sender&#41;.ActiveLanguage in Self. LanguageSet then
      Self.ActiveLanguage&#58;= TPerson&#40;Sender&#41;.ActiveLanguage
    Else
      Rise Exception&#40;'unknown protocol'&#41;;

  With Sender as TPerson do
  Begin
    While ActiveChat do
      Self.Earbuffer.Add&#40;DataPending&#41;;
    Self.Invalidate;
   ....
  End;
End;
wait forgot what my point was.. :?