약간 함수를 변형해 보았습니다..
아래를 보고 참고 하세요..

From 류..

---------

Procedure Translate(Var Strg:String; Source,Target:String);
Var
   stTemp : String;
Begin
  stTemp:= Strg;
  Strg:= StringReplace(stTemp, Source, Target, [rfReplaceAll]);
End;

Procedure TranslateAllCase(Var Strg:String; Source,Target:String);
Var
   stTemp : String;
Begin
  stTemp:= Strg;
  Strg:= StringReplace(stTemp, Source, Target, [rfReplaceAll, rfIgnoreCase]);
End;

Var
   stTemp : String;
Begin
  stTemp:= 'My name is Ryu.';
  Translate(stTemp, 'ryu', 'Ryu, Jong-Taek.');
  ShowMessage(stTemp);
  stTemp:= 'My name is Ryu.';
  Translate(stTemp, 'ryu', 'Ryu, Jong-Taek.');
  ShowMessage(stTemp);
  TranslateAllCase(stTemp, 'ryu', 'Ryu, Jong-Taek.');
  ShowMessage(stTemp);
End;