TPanel* old_panel = 0;
void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
      if(old_panel != 0)
      {
          old_panel->Color = clMenu;
      }
     ((TPanel*)Sender)->Color = cl3DLight;
     old_panel = ((TPanel*)Sender);
}

Ich habe nun noch folgendes Problem,

PANEL1
                                                  CheckBoxes
|---------------------------------------------------------------------|
| Label1                                     X     X     X     X      |        
|---------------------------------------------------------------------|

wenn ich mit dem Mousecursor auf dem Panel bin funktioniert das ganze,
befinde ich mich allerdings auf dem Label oder einer CheckBox läuft
das ganze natürlich nicht mehr richtig.
Gibt es da eine irgendeine Möglichkeit.

Johann