[Lazarus] TMouseButton

[Kjow]

2010/4/7 Kjow <antispammoni at gmail.com>:
> Error: Incompatible types: got "Empty Set" expected "TMouseButton"

Whops, I've mistyped, it works!
But how to read the values from a function?

e.g.

function ButtonPress(Button: TMouseButtons): string;
begin
  case Button of
    ...: Result:= 'you pressed' ;
  end;
end;

regards,
Kjow