ODD用法

procedure TForm1.ToolButton1Click(Sender: TObject);
var
  down : boolean;
begin
  toolbutton1.Tag := toolbutton1.Tag + 1;
  down := odd(self.ToolButton1.Tag);
  if down then
    toolbutton1.Cursor :=  crHandPoint  //手的形状
  else
    toolbutton1.Cursor :=  crArrow;         //箭头形状
end;