in module win32callback.inc in procedure MAINWIN for code: forgot declarations of LIST and C {$IFDEF VER1_1} List := TMsgArray(GetProp(Window, 'MsgList')); If Pointer(List) <> Nil Then For C := 0 To Length(List) Do If List[C] = PLMsg^.Msg Then Begin DeliverMessage(OwnerObject, PLMsg^); Exit; End; {$ELSE VER1_1} Regards Darek