Einzelnes Zeichen aus Edit löschen

[Pseudemys Nelsoni]

hoi, ich versuche ein ngültiges Zeichen aus einem edit zu löschen mit:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', 'A'..'Z', 'a'..'z', #45, #95, #123, #125, #91, #93, #96, #124, #39, #8]) then
  begin
    Application.MessageBox('Unerlaubtes Sonderzeichen verwendet!' + #13#10 + #13#10 +
                           'Erlaubte Sonderzeichen sind z.B: -_{}[]`|', 'Fehler', mb_ok);
    Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) - 1);
  end;
end;

aber irgendwie funktioiert das nicht wenn das edit nur eis einem zeichen besteht, also ein "%" z.b wird nicht gelöscht, wieso das?