unit Unit1interfaceusesWindows Messages SysUtils Variants Classes Graphics Controls FormsDialogs StdCtrls ExtCtrlstypeTForm1 = class(TForm)Label1: TLabelImage1: TImageButton1: TButtonLabel2: TLabel