"No context-sensitive help installed" , "user32.dll" and "uxtheme.dll" AV errors on Delphi with no reason

This is very strange guys. I wrote a simple application. When I make my commands executed fast by moving mouse (event is on mouse move), I experience the following errors if I run my application without debugger (if I do, application just hangs and nothing happens): 1- "No context-sensitive help installed" however i haven't used help in my app. 2- Access violation errors from "uxtheme.dll" and "user32.dll" libraries!

well, i think these errors happen when Windows 开发者_开发问答Messages are sent quickly one after another. I came across these errors a while ago in a huge application. In both application I used SendMessage command, but what am i doing wrong? I'm now using Delphi 2010

Has anyone ever experienced this?!

Edit: The problem was because of GetForegroundWindow function that I had used in the code of a timer. But I have to use it. What should I do?

Here it is a part of my code: http://www.mediafire.com/?davlsokf8zqq2gs

From the first glance it looks like some memory corruption OR incorrect memory access. Maybe you are sending PChars with your messages, and when migrating to Delphi 2010 you have not properly and completely updated your code. So the first thing to do is inspect all places where you use(d) PChar, PAnsiChar and PWideChar.

I found the problem. My bad! ApProgressBar was calling Paint while Tmessage was invalid! Thanks to all people who cared about the question.