如何在图片上创建热区(50分)

最近本人遇到了一个令人头痛的问题,就是要在image组建的 picture属性中的图片上创建热区，也就是点击不同的部分，可以进入不同的窗体．哪位大哥可以帮帮我吗？

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if x<=Round(Image1.Width/2) then
ShowMessage('left')
else
ShowMessage('right');
end;