procedure TForm1.FormCreate(Sender: TObject); begin TrayIcon1.Visible:=True; end; procedure TForm1.N1Click(Sender: TObject); begin Application.Terminate; end; procedure TForm1.TrayIcon1DblClick(Sender: TObject); begin Show; end;