East make Tray Icon in delphi

				object frmInfo: TfrmInfo
				  Left = 402
				  Top = 230
				  BorderStyle = bsToolWindow
				  Caption = 'Viewing content of %s'
				  ClientHeight = 357
				  ClientWidth = 337
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  OldCreateOrder = False
				  Position = poOwnerFormCenter
				  OnClose = FormClose
				  PixelsPerInch = 96
				  TextHeight = 13
				  object reInfo: TRichEdit
				    Left = 0
				    Top = 0
				    Width = 337
				    Height = 357
				    Align = alClient
				    Font.Charset = ANSI_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -11
				    Font.Name = 'Courier New'
				    Font.Style = []
				    ParentFont = False
				    ReadOnly = True
				    ScrollBars = ssBoth
				    TabOrder = 0
				  end
				end