Fórum Problema com verificação na digitação #349563

E ai galera bem e o seguinte , eu to tetando fazer uma função que depois que o cara deixa um edit ele verifica o que foi digitado, e aceita somente os valores numericos,X,W,G,R,U, B. so que não to conseguindo, ou ele aceita tudo ou não aceita nada o codigo que usando e esse aqui :


custo_real:=Edit1.Text;
if (custo_real<>´´) then
Begin
for t:=0 to Length(custo_real) do
begin
if (not(((custo_real[t]>=´0´) and (custo_real[t]<=´9´)) or (UpperCase(custo_real[t])=´X´) or (UpperCase(custo_real[t])=´U´) or (UpperCase(custo_real[t])=´G´) or (UpperCase(custo_real[t])=´B´) or (UpperCase(custo_real[t])=´W´) or (UpperCase(custo_real[t])=´R´))) then
begin
ShowMessage(´Por favor utilize valores numericos ou que se encontrem dentro da Legenda de Custo´);
Edit1.SetFocus;
Break;
end;

end;

Bem essa função fica no OnExit do Edit.
Agluem tem alguma ideia do que pode ser ?.