procedure TForm1.actTestUpdate(Sender: TObject);
begin
   actTest.Enabled := ListView1.SelCount > 0;

   CodeSite.Send('actTestUpdate'); // gets fired very often!
end;