delphi PosAnsi

function ValidateName(n: string): string;

var banned, res: string; i,j: integer;

begin

  res:= n;

  banned:= '\/:*?"<>|';

  for i:=  to Length(res) do

    for j:=  to Length(banned) do

      if res[i]=banned[j] then res[i]:=' ';

  Result:= res;

end;