{
OnClick, ArrangeIcons example
This code runs when the user chooses a menu item called Window | Arrange Icons:
} 
procedure TForm1.WindowArrangeIconsClick(Sender: TObject);
begin
  Form1.ArrangeIcons;
end; 
