Reemplazar caracter de una determinada posición.

[[eduarcol]]

no se si exista tal funcion, pero la puedes crear:

Código Delphi [-]
function Reemplazar(cCadena, cCar: String; nPos: Integer): String;
begin
   Result := Copy(cCadena, 1, nPos-1) + cCar + Copy(cCadena, nPos-1, Length(cCadena));
end;

La cree de memoria, de pronto haya que hacerle algunos ajustes, pruebala y me avisas