Проблема с клавой

Народ помогите! Функция GetKeyboardLayoutList в модуле windows.pas определена, как
function GetKeyboardLayoutList(nBuff Integer; var List) UINT; stdcall;
кто знает какого типа параметр-переменная "List". У меня что-то с ней работа не клеится. Я спользую в качестве этого параметра указатель на массив, определенный следующим образом
type
PArr = ^TArr;
TArr = array[0..5] of HKL; // беру с запасом
var
Arr PArr;
...
GetMem(Arr, SizeOf(Arr));
y=GetKeyboardLayoutList(6, Arr);
...
FreeMem(Arr, SizeOf(Arr));
функция возвращает y= 2 (как и есть на самом деле), но массив остается заполнен нулями. Что не так ? Если можно проверенный примерчик.