如何用delphi做出IE浏览器的效果(90分)

怎样实现象IE那样，放置一幅图片，然后在图片上分出几个不规则的区域，当鼠标点击时，用showmessage方法，显示现在点击的是图片中的那个区域[?]，最好说详细一点行吗
我是个新手，只有90分，现在全送出了，请高手不要嫌弃

这个东西好象在网络上应用比较广泛，比如用图片的一个区域做一个超级联接。我想在程序中
可以把你的地图分割开。实现图片的热区！

procedure TForm1.image1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
TheRect:array [0..1] of TRect
begin
for I :=0 to 1 do
if PtInRect(therect,pt) then application.MessageBox('信息','程序执行确认');
／／主要是截取热区图像；
end;