[radenf]

Código Delphi [-]
function QuitarEspeciales(const Cad: string): string;
const
  VALIDOS=[' ','0'..'9','A'..'Z','a'..'z','á','é','í','ó','ú'];
var
  i: Integer;
begin
  Result:= '';
  for i:= 1 to Length(Cad) do
   if Cad[i] in VALIDOS then Result:= Result+Cad[i]
end;

Estimado ecfisa :

Quisera saber como se podría en esta función reemplazar el carácter eliminado por un espacio.
Saludos y gracias