unit test; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,TransparentPanel, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Image1: TImage; Button1: TButton; label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var a : ttransparentpanel; begin end; end.