[Lazarus] With new Win32 manifest LongPathAware I cannot make long filename

[AlexeyT]

This app cannot make 2nd folder (it can make 1st) and make file. Error 
on file saving. why? new manifest option is used. Win10.

{ TForm1 }

const
s1='w123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012';
   base='c:\work\';

procedure TForm1.Button1Click(Sender: TObject);
var f: TStringList;
begin
   ForceDirectories(base+s1+'\'+s1);
   f:= tstringlist.create;
   f.add('zzz');
   f.SaveToFile(base+s1+'\'+s1+'\test.txt');
   f.free;
end;

-- 
Regards,
Alexey