East make Tray Icon in delphi

				program SpecialProgressTestPrj;
				
				uses
				  QForms,
				  JvSpecialProgressMainFormU in 'JvSpecialProgressMainFormU.pas' {JvSpecialProgressMainForm};
				
				{$R *.res}
				
				begin
				  Application.Initialize;
				  Application.CreateForm(TJvSpecialProgressMainForm, JvSpecialProgressMainForm);
				  Application.Run;
				end.