East make Tray Icon in delphi

				unit MDIBkgndDemoFrame;
				
				interface
				
				uses 
				  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
				  StdCtrls;
				
				type
				  TDemoFrame = class(TFrame)
				    Label1: TLabel;
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				
				implementation
				
				{$R *.DFM}
				
				end.