OnKeyPress und EIngabe prüfen

[MrDevil]

habe es so gelöst

Delphi-Quellcode:

var
  b: byte; S, t: string;
begin
  S := Edit1.Text;
  for b := 1 to Length(S) do
    if S[b] in ForbinndenChars then
    begin
      t := Copy(s, 0, Length(S) - 1);
      S[b] := #0;
      Edit1.Text := t + S[b];
      Edit1.SelStart := Length(Edit1.Text);
      Edit1.SelText := '';
    end;