关于Image控件的单击事件和双击事件

问题1：
我想在Image控件的“单击”事件和“双击”事件里分别实现不同的功能，比方说：
procedure TF_main::Image1Click(TObject *Sender);
begin
    ShowMessage("single click");
end;procedure TF_main::Image1DblClick(TObject *Sender);
begin
    ShowMessage("double click");
end;
如果双击Image控件，弹出的对话框是“single click"。用什么方法可以让“双击”事件里不会发生“单击”事件的动作，或者说这个问题真的无解。
============================================
问题2：
如何模拟这样的事件：用鼠标按住一个按钮不放几秒钟之后，做相应的动作