关于句柄的释放解决办法

关于句柄的释放
procedure   loadingCursor(turnON:boolean);
var
    h:HCURSOR;
begin
    if   turnON   then
        begin
            h:=LoadCursorFromFile( 'loading.ani ');
            setSystemCursor(h,ocr_normal);
        end
    else
          SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);
end;


这段代码是改变鼠标光标的.我用memoryProof测试,   抱出说h变量没释放,所以导致内存泄露,   请问,这种变量需要释放吗?应该怎么释放?


[解决办法]
内核对象的句柄才需要用CloseHandle，这里不需要
[解决办法]
sorry,应该是closehandle(hpi.hprocess);