East make Tray Icon in delphi

				object frmagnet: Tfrmagnet
				  Left = 358
				  Top = 195
				  Width = 277
				  Height = 210
				  Caption = 'Magnet'
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  OldCreateOrder = False
				  PixelsPerInch = 96
				  TextHeight = 13
				  object JvxLabel1: TJvLabel
				    Left = 40
				    Top = 72
				    Width = 168
				    Height = 40
				    Caption = 'Move me to the corners'#13#10'of your screen ...'
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -16
				    Font.Name = 'MS Sans Serif'
				    Font.Style = []
				    ParentFont = False
				  end
				  object JvFormMagnet1: TJvFormMagnet
				    Active = True
				    FormGlue = False
				    MainFormMagnet = True
				    Left = 16
				    Top = 8
				  end
				end