[lazarus] StrPCopy bug

[Shane Miller]

This is interesting.  

I am using 
Procedure Something(var msg); Message LM_RESIZE;
Procedure Something(var msg); Message LM_SHOW;
Procedure Something(var msg); Message LM_DESTROY;
Procedure Something(var msg); Message LM_FOCUS;

in my TForms class.

In LMessages.pp I declare
LM_USER = $10;
LM_RESIZE = LM_USER+1;
LM_SHOW = LM_USER+15;
LM_DESTROY = LM_USER+2;
LM_FOCUS = LM_USER+6;

When I have the last two commented out, it compiles.  But if I uncomment the LM_DESTROY one, it crashes with
Panic: Internal compiler error, exiting
forms(52,5) Fatal: Internal error 9999

Line 52 is the end of TForms class declaration.

Thoughts?

Shane