program project1;
{$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 };
function SetDllDirectory(lpPathName:PWideChar): Boolean; stdcall; external 'kernel32.dll' name 'SetDllDirectoryW';
{$R *.res}
begin
SetDllDirectory(PWideChar('D:\Sources\tst'));
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.