nimm doch einfach onMouseMove und mache dann eine abfrage der koordinaten x und y!
Delphi-Quellcode:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x = 100) and (y = 90) then
form1.Caption := 'test';
if (x = 130) and (y = 10) then
form1.Caption := 'test1';
end;
die aktionen kannst du dann ja gestalten wie du sie brauchst!