HSPTV!掲示板

下記の記述にてエラーが出ます
sjisの文字数が多いとエラーが出ます。

sdim result_uni, , 1024

で領域を拡大してるのに何故出るのでしょうか
解決策を教えてくださいT_T
お願いします

#uselib "msvcrt"
#cfunc strlenW "wcslen" var
result_uni=""
sjis="あいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえお"	//元の文字列
uni=""							//Unicodeに変換した文字列


cnvstow uni, sjis				//変換

i=strlenW(uni)

sdim result_uni, , 1024		//文字数がiに入っているため、その分配列を確保。

count=0
repeat i
	wpoke result_uni(cnt), 0, wpeek(uni, cnt*2)	//それぞれの要素にコピー。
loop

問題なのはuniの方

len=strlen(sjis)
sdim uni,len*2+2
cnvstow uni, sjis				//変換

みたいに必要なバッファサイズ以上確保すると良い

ありがとうございました
勉強になりました。