East make Tray Icon in delphi

				object DemoFrame: TDemoFrame
				  Left = 0
				  Top = 0
				  Width = 320
				  Height = 423
				  TabOrder = 0
				  object Label1: TLabel
				    Left = 12
				    Top = 16
				    Width = 93
				    Height = 37
				    Caption = 'Frame'
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -32
				    Font.Name = 'MS Sans Serif'
				    Font.Style = []
				    ParentFont = False
				    Transparent = True
				  end
				end