ファイル名変更にエディタボックスを使ってるのでファイル名に使えない文字は無効化しようと

if (Key='\') or (Key='/') or (Key=':') or (Key=',') or
(Key=';') or (Key='*') or (Key='?') or (Key='"') or
(Key='<') or (Key='>') or (Key='|') then
begin
Key :=#0;
Beep;
end;

こんなことやってる漏れってバカかな。。_| ̄|○ |||