Filter:='Key='+FKey.AsString + ' AND UserKey='+IntToStr(CurrentUserKey)+ ' AND UserMess<>'+IntToStr(CurrentUserKey); Filtered:=True;