Controls.Pas 에 나와있는 컴포넌트 메시지를 이용하시면 됩니다.
마우스가 컨트롤 안에 들어오면 CM_MOUSEENTER 가 발생하고,
반대로 커서가 밖으로 나가면 CM_MOUSELEAVE가 발생하게 되죠...

컴포넌트의 메소드로 다음을 추가하세요...

procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

그런 다음 함수의 구현부에서 

procedure TMyCompo.CMMouseEnter(var Message: TMessage);
begin
    TForm(parent).Caption := '들어왔네!';
end;

procedure TMyCompo.CMMouseLeave(var Message: TMessage);
begin
    TForm(parent).Caption := '나갔네!';
end;

아버지의 캡션 즉 폼의 캡션에 상태가 나타나게 됩니다.

참고하세요...