PopupMenu со мной не дружит

[Жигилий_Ульяна]

Помогите, пожалуйста, исправить ошибку.
Суть задания заключается в том, чтобы прицепить на иконку (иконка в системном трее) PopupMenu.
Прописала:

procedure TForm3.TrIcon;
var P: TPoint;
begin
case msg.lParam of
WM_LBUTTONDBLCLK:
begin
SetForegroundWindow(Handle);
end;
WM_RBUTTONDOWN:
begin
GetCursorPos(P);
PopupMenu1.Popup(P.X, P.Y);
end;
end;
end;

В private зарегестрировала сие творение:

procedure TrIcon(var msg: TMessage);
message MyTrayIcon;

И вот на этом самом message MyTrayIcon ошибка и появляется.
Подскажите, что имено НЕ ТАК я делаю. Заранее благодарна.

[mihali4]

procedure TrIcon(var msg: TMessage);
и
procedure TForm3.TrIcon;
Разницу ощущаете? Странно, что компилятор такое пропустил. Наверное только потому, что вы ее спрятали в private...

[Жигилий_Ульяна]

Исправила, только вот ошибок стало еще больше

[mihali4]

Это смотря как исправила... Большой-большой секрет, да? Ну что ж, сидите со своим секретом и ждите у моря погоды...

[Жигилий_Ульяна]

Почему же, секрет? Ликвидировала TForm3.

[Kostia]

В Google точно можно найти необходимый пример, по крайней мере когда мне это было нужно я его нашел почти сразу, может вам тоже стоит попробовать? http://delphi-faq.zoxt.net/1681.htm
И на счет секретов, вы даете непонятный обрывистый кусок кода из которого очень сложно что либо разобрать и хотите что бы вам помогли. Мы не телепаты и понять что у вас на уме и что вы там делаете не можем, поэтому если это не супер секрет лучше выложить полностью исходник или хотя бы большую его часть.