function UniLoadFromFile( var Outl : pStrList; const Filename: KOLString ): Boolean;
var F: THandle;
C : array[0..1] of Char;
begin
   F := FileCreate( Filename, ofOpenRead or ofOpenExisting or ofShareDenyWrite );
   if F = INVALID_HANDLE_VALUE then Exit;
   FileSeek( F, 2, spBegin );
     while not FileEOF( F ) do
     begin
     FileRead( F, C, 2 );
     if (C[0] = #0 ) then
         continue;
     Outl.Add(WideChar(C));
     end;
   Result := True;
   FileClose( F ); {Dark Knight}
end;