M>//
M>var
M>  pszData: Array of WideString;
M>//
M>          SetLength(pszData, iItem + 1);
M>          pszData[iItem] := hData.cFileName;
M>          SendMessageW(GetDlgItem(hWnd, IDC_LANG_LIST), CB_SETITEMDATA, iItem,
M>            LPARAM(pszData[iItem]));
M>