TShape로 A,B,C,D 4개를 버튼 모양으로 만든다음
각 Shape위로 마우스가 지나갈때..그 Shape의 동작 상태를
RichEdit에 표시할려구 합니다.

그런데..다음과 같이 사용하니 마우스가 조금만 움직여도
다시 그리니 글자가 깜깜박하면서 계속 다시 써주더라구요..

하나의 Shape 사이즈 위에 있을때 한번만 그려주게 하는 방법은
어떻게 하면 좋은가여?

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,int X, int Y)
{
  TShape* Shape = dynamic_cast<TShape*>(Sender);
  if(Shape == A)
  {

    RichEdit1->Clear();
    RichEdit1->Lines->Add("Device");
    ....
  else if(Shape == B)
  {

    RichEdit1->Clear();
    RichEdit1->Lines->Add("View");
    ...
  }
  else if(Shape == C)
  {

    RichEdit1->Clear();
    RichEdit1->Lines->Add("Doc");
    ...
  }
  else if(Shape == D)
  {

    RichEdit1->Clear();
    RichEdit1->Lines->Add("explore");
    ...
  }
}