After some investigation I discover that problem is in the snipped
from function TWPDCT.InDictionary:
is_capital := WPSpellIsUppercase(AWord[1], FHeader.codepage);
if (FHeader.options and OPTION_HANDLECAPITAL) <> 0 then
begin
capital := is_capital;
AWord := WPSpellLowercase(AWord, FHeader.codepage);
// Only captital words can be Compound
if not capital then
SearchCompound := FALSE;
end else capital := FALSE;
in fact the clause FHeader.options and OPTION_HANDLECAPITAL will be never TRUE but I don't understand why.
Any suggestion ?