unit FlatFormCase; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FlatForm, Vcl.ExtCtrls; type TFlatFormTestCase = class(TFlatForm) pnl1: TPanel; procedure pnl1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FlatFormTestCase: TFlatFormTestCase; implementation uses LoggerImport, AppCentreImport, DataProviderImport; {$R *.dfm} procedure TFlatFormTestCase.pnl1Click(Sender: TObject); var ABuffer: TBytes; begin // GetAppIconProvider.FindIcon('a0e0f1308c2111df92d995795a3bcd40', ABuffer); // ABuffer := nil; // GetAppCentre.Login('ttf', nil); end; end.