Problem with selection of the menu item tool bars...

[Gerold24]

I have a problem with paradox 10. During the selection of the menu item tool bars...
following error report comes: Unexpected: General Protection

infos:
- SP 2,3 and 4 were installed
- at the beginning all tool bars were activated
- call of the Procedure FensterWeg(), the tool bars were put out
- after renewed start of program are not to see any tool bars more
- no effect has new installation


proc FensterWeg()
var
tc TCursor
siWinHandle, siWinMsgID LongInt
endVar

if isToolBarShowing() then
hideToolBar()
endIf
enumDesktopWindowNames("RIVATESKWINS")
tc.open("RIVATESKWINS")
scan tc:
if tc.WindowName.isBlank() then
loop
endIf
siWinHandle = tc."Handle"
siWinMsgID = winGetMessageId("WM_CLOSE")
winSendMessage(siWinHandle, siWinMsgID, 0, 0)
endScan
endproc

Who can help me?
Gerold