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;