Da Du Delphi7 verwendest wirst Du CMMouseEnter und CMMouseLeave verwenden.
Hier bekommst Du in LParam einen Zeiger auf den eigentlichen Empfänger der Message übermittelt, sofern vorhanden.
Delphi-Quellcode:
procedure TMyComp.CMMouseEnter(var Message: TMessage);
begin
inherited;
if (Message.LParam = 0) then
Color:=clgray
// else if TComponent(Message.LParam) = FEdit then Showmessage('Edit überfahren')
end;
procedure TMyComp.CMMouseLeave(var Message: TMessage);
begin
inherited;
if (Message.LParam = 0) then
Color:=clsilver;
end;