Ayuda En Delphi

[defcon1_es]

Empezado por Susana Jimenez

ayuda como validar una caja de texto para que solo entren letras y no numeros ya tengo un codigo

if (key < Char(65))or (key > char(90)) and (key < Char(97))or (key > char(122))and (key <> Char(8)) and (key <> Char(32))and (key <> Char(13)) then
begin
mensaje:=Application.MessageBox('Digíte Letras', 'Error de entrada');
key := char(0); //Limpia el EditBox

y si me acepta solo letrascuando pulso la tecla de retroceso no me la acepta ya intente quitandole el 8 pero aun asi no me la acepta

GRACIAS

Código Delphi [-]
if not(key in ['A'..'Z', 'a'..'z', #8]) then
begin
mensaje:=Application.MessageBox('Digíte Letras', 'Error de entrada');
key := char(0); //Limpia el EditBox
end;