Delphi Drawers

function fnReplaceText(strText:string;strOld:string;strNew:string):string;
begin
  strNew := '"' + strNew + '"';
  fnReplaceText := StringReplace(strText, strOld, strNew, [rfReplaceAll,rfIgnoreCase]);
end;