🚀 go-pugleaf

Witam,

Chcę posortować TStringList przy pomocy funkcji WinAPI 
https://msdn.microsoft.com/en-us/library/windows/desktop/dd317761(v=vs.85).aspx

napisałem sobie moduł ftp://vps427063.ovh.net/Tools.pas

[Tutaj treść tego modułu]

unit Tools;

{$mode objfpc}{$H+}

interface

uses
   Classes, SysUtils, LCLType, Dialogs;

const
   SORT_DIGITSASNUMBERS = $00000008;
   LOCAL_USER_DEFAULT = '!sys-default-locale';

type
   PNLSVersionInfoEx = ^TNLSVersionInfoEx;

   TNLSVersionInfoEx = record
     dwNLSVersionInfoSize: DWord;
     dwNLSVersion: DWord;
     dwDefinedVersion: DWord;
     dwEffectiveId: DWord;
     guidCustomVersion: TGuid;
   end;

procedure ListFileDir(Path: string; Filtr: string; FileList: TStringList);

function compare(List: TStringList; Index1, Index2: integer): integer;

function CompareStringEx(lpLocaleName: PChar; dwCmpFlags: DWord;
   lpString1: PChar; cchCount1: integer; lpString2: PChar; cchCount2: 
integer;
   lpVersionInformation: PNLSVersionInfoEx; lpReserved: Pointer; lParam: 
LParam): integer;
   external 'kernel32.dll';


implementation

procedure ListFileDir(Path: string; Filtr: string; FileList: TStringList);
var
   SR: TSearchRec;
begin
   if FindFirst(Path + Filtr, faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         FileList.Add(SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
end;

function compare(List: TStringList; Index1, Index2: integer): integer;
begin
   try
     Result := CompareStringEx(PChar(LOCAL_USER_DEFAULT), 
SORT_DIGITSASNUMBERS,
       PChar(List.Strings[Index1]), -1, PChar(List.Strings[Index2]), -1, 
nil, nil, 0);
   except
     ShowMessage(SysErrorMessage(GetLastOSError));
   end;
end;

end.

lecz dostaję wyjątek "Parametr jest niepoprawny," - wychodzi na to że 
skopałem któryś parametr funkcji CompareStringEx tylko przyznam że 
rzadko bawię się WinAPI i nie przychodzi mi do głowy który by mógł to 
być

Swoją drogą zauważyliście ze na MSDN jak coś teraz podają w stałych to
podają same nazwy bez ich wartości - Ciekawe to jest :)

Moje środowisko:
Lazarus 1.6.4
Win 7

Pozdrawiam
J-23