if (Copy(UserMessage, 1, 6) = MSG_NEW_MESSAGE) then
    begin
      Delete(UserMessage, 1, 6);
      txtLog.Lines.Add(UserMessage + #13#10);
      for i := 0 to sckHost.Socket.ActiveConnections - 1 do
      begin
        if (sckHost.Socket.Connections[i].SocketHandle <> Socket.SocketHandle) then
          sckHost.Socket.Connections[i].SendText(MSG_NEW_MESSAGE + UserMessage);
      end;
      if (IsIconic(frmMain.Handle) = TRUE) then
      begin
        FlashInfo.cbSize := SizeOf(FLASHWINFO);
        FlashInfo.hwnd := frmMain.Handle;
        FlashInfo.uCount := 5;
        FlashInfo.dwTimeout := 100;
        FlashInfo.dwFlags := FLASHW_ALL;
        FlashWindowEx(FlashInfo);
      end;
    end;