Genkendelse af placering

Prøv den her funktion:

function TjekOmPointErMellemToPoints(P1, P2, Point: TPoint): Boolean;
begin
  Result := (Point.X >= P1.X) and (Point.X <= P2.X) and (Point.Y >= P1.Y) and (Point.Y <= P2.Y);
end;

Hvis det skulle være med musen kan du bruge:

function TjekOmPointErMellemToPoints(P1, P2, Point: TPoint): Boolean;
begin
  Result := (Point.X >= P1.X) and (Point.X <= P2.X) and (Point.Y >= P1.Y) and (Point.Y <= P2.Y);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
P1,P2,P3: TPoint;
begin
P1.X := 2;
P1.Y := 3;
P2.X := 10;
P2.Y := 6;
GetCursorPos(P3);
Label1.Caption := BoolToStr(Tjek(P1,P2,P3))
end;

Lukketid???