[Rubiel]

Tengo este código, con le cual pido contraseñas, además realiza una codificación de las misma (bueno, solo incremente 5 caracteres a cada dato de acuerdo a su código ASCII). Y esa información me la compara despues a mi tabla de contraseñas. Me pasaron este código, pero no me funciona, alguien me puede dar otra solución???

    PW := edPassword.Text;
    for i:=0 to Length(edPassword.Text) do
    begin
        PW[i] := Char(Ord(PW[i])+5);
    end;
    edPassword.Text := PW;

    qryPassword.Close;
    qryPassword.SQL.Clear;
    qryPassword.SQL.Add('Select Contraseña,Permiso From Contraseñas');
    qryPassword.SQL.Add('Where Contraseña Like "%'+edPassword.Text+'%"');
    qryPassword.Open;

De antemano, Gracias.... Ahh y no se para que sea lo que encierra el "edPassword.text", si lo saben tambien comentenme para no estar en duda.. ok??? Chao.