program DPIImageList; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, Unit1 { you can add units after this }; {$R *.res} begin Application.Title := 'DPIImageList'; Application.Scaled := True; {$IF DECLARED(GlobalSkipIfNoLeaks)} GlobalSkipIfNoLeaks := True; {$ENDIF} RequireDerivedFormResource := True; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.