Ich bastle mir das Schild gleich selbst... Danke, das hat geholfen
Für alle zukünftigen Threadbesucher. So kann's klappen:
Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
rgn : HRGN;
plist : array [0..4] of TPoint;
begin
Canvas.Brush.Color := clRed;
plist[0] := Point(104,150);
plist[1] := Point(147,148);
plist[2] := Point(151,287);
plist[3] := Point(98,284);
rgn := CreatePolygonRgn(plist,4,Winding);
if PtInRegion(rgn, x, y) then
ShowMessage('in');
end;