Fórum Validação de cpf #276431

Galera bom dia negocio é o seguinte até o meu CPF q é 093.294.887-14 ta dando CPF invalido.
VEJA ABAIXO:
Uso Delphi 6 e Banco de Dados Interbase pois fui no Evento OnSetText do Fild e coloquei o seguinte Comando:

// VALIDAÇÃO DE CPF
procedure TDM.IBTClientesCPFSetText(Sender: TField; const Text: String);
var i, soma, D1, D2: integer;
CPF: string;
begin
if text = ´´ then
sender.AsString := ´´
else
if length(sender.AsString) <> 11 then
begin
showmessage(´CPF Inválido´);
abort;
end
else
begin
CPF := copy(Sender.AsString, 1, 9);
soma := 0;
for i := 1 to 9 do
soma := soma + (strtoint(copy(cpf, i, 1)) * (11 - i));
D1 := 11 - (soma mod 11);
if D1 >= 10 then
D1 := 0;
CPF := CPF + inttostr(D1);
soma := 0;
for i := 1 to 10 do
soma := soma + (strtoint(copy(cpf, i, 1)) * (12 - i));
D2 := 11 - (soma mod 11);
if D2 > 10 then
D2 := 0;
CPF := CPF + inttostr(D2);
if CPF <> Text then
begin
showmessage(´CPF Inválido´);
abort;
end
else
sender.AsString := text;
end;

end;

MAS COMO DISSE ACIMA ATÉ O MEU CPF DA DANDO INVÁLIDO