delphi替换字符串中的单引号

delphi替换字符串中的单引号
stringreplace(str_tmp,'''','''''',[rfReplaceAll]);
联系电话：
020-00000000
联系电话：
020-00000000
联系电话：
020-12345678