大家好，我的是托盘程序，怎么实现单击托盘上的图标自动就可以把程序激活！(100分)

大家好，我的是托盘程序，怎么实现单击托盘上的图标自动就可以把程序激活！我的程序只有在最小话的时候才能激活成当前程序，否则激活不成功啊，都在后面执行
if((message.lParam = WM_LBUTTONDOWN) and (Status = True)) then
n8.Click;

procedure TForm2.N8Click(Sender: TObject);
begin
if Assigned(form3) then
begin
form3.close;
end else
if Assigned(form4) then
begin
form4.close;
end else
if Assigned(form5) then
begin
form5.close;
end else
if Assigned(form6) then
begin
form6.close;
end else
if Assigned(form7) then
begin
form7.close;
end;
begin
form2.Show;
application.Restore;
end;
end;

谢谢大家啊

用CoolTrayIcon控件啊。

重新实现WM_LBUTTONDOWN消息

多人接受答案了。