[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;