Помогите сформулировать

[kl45gp]

Как записать такое условие:

Если курсор наведён на shape1 то …
СПС!

[НЕ_АЙС]

Для каждого Shape создай обработчик OnMouseMove, в котором пиши
if TShape(Sender).Name='Shape1' then ...
и т.д.

[kl45gp]

СУПППППЕЕЕЕЕЕЕРРРРРРССССССККККККООО ООООЕЕЕЕЕЕЕ!

С П А С И Б О !
Очень вырчил!

[Virtson]

у всех Shape делаещь свойство Tag осмысленным : пишешь туда номер
обработчик один ,
у Shape1Click() достаточно
(в этом случае и и нужна проверка , что за компонент ... а так все понятно)
у остальных Shape в Object Inspector на Shape1Click() настраиваем
сама процедура :

Case (Sender as TShape).Tag of
1: ... ;
2: ... ;
else ...;
end;