[Alegun]

У меня в сборке компонент TrayIcon требуется постоянно, поэтому он появляется при создании формы и разрушается только по окончании работы, отсюда такой модификат:

Код:

...
var
 TrayIcon1: TTrayIcon;
  implementation
...
 procedure TForm1.FormCreate(Sender: TObject);
begin
  TrayIcon1:= TTrayIcon.Create(TrayIcon1);
end;
...
procedure TForm1.error;
begin
 with TrayIcon1 do
begin
BalloonHint:='ОШИБКА';
BalloonTitle:='Внимание!';
BalloonFlags:=bfError;
Active:= True;
ShowBalloonHint;
end;
...
 procedure TForm1.FormDestroy(Sender:TObject);
begin
 TrayIcon1.Destroy;
end;