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