Где ошибка в коде???

<pre class="alt2" style="margin: 0px; padding: 6px; border: 1px inset; width: 630px; height: 274px; text-align: left; overflow: auto; background: none repeat scroll 0% 0% #fffaca; color: #000000; font-family: monospace; font-size: 9pt; font-weight: normal;" dir="ltr">В какой стороке???
rocedure SendSpace(handle: hwnd); //в handle передаём хендл чеклистбокса begin SendMessage(handle, WM_KEYDOWN, VK_SPACE , 1); //зажимаем пробел SendMessage(handle, WM_CHAR, VK_SPACE , 1); //"прописываем" пробел SendMessage(handle, WM_KEYUP, VK_SPACE, 1); //отпускаем пробел SendMessage(handle, WM_KEYDOWN, VK_DOWN, 1); //зажимаем "вниз" SendMessage(handle, WM_KEYUP, VK_DOWN, 1); //отпускаем end; procedure TForm1.Button1Click(Sender: TObject); var i,n:integer; begin // ...вычисление хендла n := SendMessage(listhandle, LB_GETCOUNT, 0, 0); // считываем кол-во items в листчекбоксе for i := 1 to n do SendSpace(listhandle); // ставим все галки end;

</pre>