I have add the new line . and get showmessage with 0.
And I found in TNxToolPalette6.GetPaletteByText
for i := 0 to Pred(FPalettes.Count) do //<<-------------------this line cause the error.
if WideCompareStr(Palette[i].Caption, Text) = 0 then
begin
Result := Palette[i];
{ Done. }
Exit;
end;