DragDrop 이다 Docking에 주로 쓰이는 FindDragTarget 이라는 VCL함수가 있습니다.

이 함수를 이용해 현재 Mouse위치에 있는 최상위 Control을 찾아서 return해줍니다.

//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	TControl* ctrl=FindDragTarget(Mouse->CursorPos,true);
	if(ctrl)
	{
		Memo1->Lines->Add(ctrl->Name);
	}
}

그럼..

그리드 님이 쓰신 글 :
: Command1 박스가 있는데요
:
: 여기 위에 마우스커서 위치가 있지 않으면
:
: 조건을 만들어서 어떤 일을 수행해야 합니다.
:
: 어떻게 해야 채크가 가능한가요.