[reevil]

El componente Timage , tiene el vento onMouseEnter, puedes hacer algo como esto:

void __fastcall TForm1::Image1MouseEnter(TObject *Sender)
{
ShowMessage("el cursor esta arriba");
}