WebFormMouseDown

Hi There,

I am trying to double-click inside a mouse down event by identifying if ssDouble is in shift. However, it seems not working, any suggestion for that?

Here is example code:
...
procedure TForm1.WebFormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbleft) and (ssDouble in Shift) then showmessage('1')

end;

Thanks