Help!) Проверка на синтаксис вводимого в Edit

[Denisska008]

Доброго времени суток
Я имею данный код на проверку вводимого в Edit, но есть одна проблема: не возможно стереть символ если передумал его вводить, в попытке стереть его вылетает msg как при не правильном символе. Как можно это устранить и сделать возможность стирать символы?

Код: Выделить всё

procedure TForm5.Edit1OnKeyPress(Sender: TObject; var Key: char);
begin
if (Key in ['A'..'Z','a'..'z','0'..'9','.','-']) = False then
    begin
     ShowMessage('Индентификатор не может содержать данный символ');
     Key:=Chr(0);
    end;
end;                 


[Vlad04]

Добавьте во множество символ "BackSpace" chr(8)

Код: Выделить всё

if not (Key in [chr(8), 'A'..'Z','a'..'z','0'..'9','.','-']) then