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

var
MausPos: TPoint;
MouseX, MouseY: Integer;
begin
GetCursorPos(MausPos);
MouseX := MausPos.x;
MouseY := MausPos.y;
if (mouseX > 151) and (MouseX < 338) and (MouseY > 8) and (MouseY < 50) then
begin
panel1.Visible:=true;
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if (X > 151) and (X < 338) and (Y > 8) and (Y < 50) then
begin
panel1.Visible:=true;
end;
end;					

1:
2:
3:
4:

panel1.Visible := (X > Panel1.Left) and 
                  (X < Panel1.Left + Panel1.Width) and 
                  (Y > Panel1.Top) and 
                  (Y < Panel1.Top + Panel1.Height);