delphi TrayIcon1 tray bubble tips

 
TrayIcon1.Animate: = to true; 
TrayIcon1.BalloonFlags = bfInfo; 
TrayIcon1.Hint: = Form1.Caption; 
TrayIcon1.BalloonTitle: = ' Tip ' ; 
TrayIcon1.BalloonHint: = ' Please note that the computer is about to enter a locked state. ' ; 
TrayIcon1. BalloonTimeout: = 1000 ; 
TrayIcon1.ShowBalloonHint;