problema.. validar solo letras en Edit

[tebre]

tengo este codigo que hace lo que necesito el problema es que no me acpeta la tecla retroceso..espero alguien me puede ayudar o pasarme un mejor codigo.. gracias amigos

Código Delphi [-]
 
procedure TFrmDireccion.EdNombreDireccionKeyPress(Sender: TObject;
  var Key: Char);
begin
if StrScan ('abcdfeghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ', (Key))=nil then
Key:=#0;
end;

[*Caro*]

Hola tebre, lo puedes hacer así:

Código Delphi [-]
procedure TFrmDireccion.EdNombreDireccionKeyPress(Sender: TObject;
  var Key: Char);
begin
 //si no esta en esta lista entonces no lo acepta
 //solo debes añadir el caracter o el numero ascci con un # de los que quieres que acepte
 if not( key in ['a'..'z','ñ','A'..'Z','Ñ',#32,#8]) then
   key := #0;
end;

Saluditos

[tebre]

hola caro gracias el problema ya esta resuelto..gracias