Fórum erro na classe de um componete #550531

Criei um componente de formatação de moeda com Delphi 2010.
Ao instalar no Delphi ex7 dá um erro na variável ThousandSeparator que é da (TEdMoeda = class(TCustomEdit))

código:

function TEdMoeda.TrimAll(s : String): String;
var
i : Integer;
begin
//i := length(s);
while Pos(' ', S) > 0 do
Delete (s, Pos(' ', S), 1);
while Pos(ThousandSeparator, S) > 0 do
Delete (s, Pos(ThousandSeparator, S), 1);

i := Pos(CurrencyString, S);
if i > 0 then
Delete(S, I, Length(CurrencyString));
result := s;
end;



ao compilar e instalar o componente aparece o erro:

[dcc32 Error] EdMoeda.pas(171): E2003 Undeclared identifier: 'ThousandSeparator'

Grato.