Replace Char Delphi Function

function ReplaceChar(s: string; c: Char; charrep: Char): string;

begin

  while Pos(c, s) >

    0 do

    s[Pos(c, s)] := charrep;

  ReplaceChar := s;

end;