1:
2:

if PtInRect(Mouse.CursorPos, Rect(1, 1, 10, 10)) then
  ShowMessage('Die Maus ist im oberen Eckbereich');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

TKoordinaten = Record
                 x,y:real
               end;

(************************************************************************************************)
(* bestimmt, ob sich ein Polygon gegen den Uhrzeigersinn läuft oder nicht.                      *)
(* Rückgabewerte: 1= im Uhrzeigersinn -1=gegen Uhrzeigersinn  0=Fehler                          *)
(************************************************************************************************)
Function CCW(p0,p1,p2: TKoordinaten):smallint;
var dx1,dx2,dy1,dy2:real;
begin
  dx1 := p1.x - p0.x;  dy1 := p1.y - p0.y;
  dx2 := p2.x - p0.x;  dy2 := p2.y - p0.y;
  if (p0.x=p1.x)and(p0.x=p2.x)then if p0.y>p1.y 
    then begin result:=-1;exit;end 
    else begin result:=1;exit;end;
  if (p0.y=p1.y)and(p0.y=p2.y)then if p0.x>p1.x 
    then begin result:=-1;exit;end 
    else begin result:=1;exit;end;
  if (dx1*dy2 > dy1*dx2) then begin result:= +1; exit; end;
  if (dx1*dy2 < dy1*dx2) then begin result:= -1; exit; end;
  if ((dx1*dx2 < 0) or (dy1*dy2 < 0)) then begin result:= -1; exit; end;
  if ((dx1*dx1+dy1*dy1) < (dx2*dx2+dy2*dy2)) then begin result:= +1; exit; end;
  result:= 0;
end;


(**************************************************************************************************)
(* bestimmt ob ein Punkt(x,y:smallint) wirklich im Feld ist, oder ob die ZDaten in "abschneiden"  *)
(* Zdaten ist dann ein einb Beschreibung DER Linien , irgenwied definiert                         *)
(**************************************************************************************************)
Function Ist_im_Feld(t:TKoordinaten; ZDaten:TIntegerListe):Boolean;
type TLinie=Record
              p1,p2:TKoordinaten;
            end;
     TPointArray=record
              x,y:real;
             end;

  function intersect(l1,l2:TLinie):smallint; (* schneiden sich die "Linienstücke" *)
  begin
    if  ((CCW(l1.p1, l1.p2, l2.p1) * CCW(l1.p1, l1.p2, l2.p2)) <=0)
    and ((CCW(l2.p1, l2.p2, l1.p1) * CCW(l2.p1, l2.p2, l1.p2)) <=0)
      then result:=1
      else result:=0;
  end;

CONST ANZAHL=20;
var P:array[0..ANZAHL]of TPointArray;
    lt,lp:TLinie; 
    i,count,j,n:smallint;
   
begin
   for i:=0 to ANZAHL do begin P[i].x:=9999; P[i].y:=9999 end;
   n:=0;

   Repeat
     inc(n);
     P[n].x := ...
     P[n].y := ..
   until i>=ZDaten.count-3;


   P[0]:=P[n];     // erster und letzter Punkt müssen gleich sein
   lt.p1.x:= t.x; lt.p1.y:= t.y;       lt.p2.x:= 35000; lt.p2.y:=t.y+1;
   count:=0; j:=0; i:=0;

   while (i<=n-1) do
   begin
     lp.p1.x:=p[i].x; lp.p1.y:=p[i].y;
     lp.p2.x:=p[i+1].x; lp.p2.y:=p[i+1].y;
     if (intersect(lp,lt)=1)
       then inc(count);
     inc(i);
   end;

   if count mod 2 =1 then result:=true else result:=false;
end;					

1:
2:

bmp.TransparentColor := bmp.Canvas.Pixels[0, 0];
bmp.Transparent := True;					

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
  deinBild.Picture.LoadFromFile('welt.png');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  Form1: TForm1;
  CurPos: TPoint

{ ... }
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Cursor.Pos.X then ...
if Cursor.Pos.Y then ...
end;