Наведение в ТР Опции

[Good_Day]

Поможите людь добрый. Короче дело было к ночи.
Как сделать поменьше такой код:
type but=record x,y,x1,y1:word end;
mous=record x,y:word end;
var m:mous;
function Nav(t:but):boolean;
begin
{>>> >:(}if (t.x<m.x) and (t.y<m.y) and (t.x1>t.x) and(t.y1>t.y) >:( then Nav:=true;
end;
Нужно узнать что мыш наведена на кнопку, вычисляетца по размера кнопки. Можно ли покороче.