一个简单函数怎么写？(50分)

三个字符串str1，str2,str3;
str1中包含有n个str2,要求用str3替换str1中的所有str2？
也就是替换对话框的功能，现在要用函数来实现，不知有没有
具体的函数，如果要自己写，提供一个思路？

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

正如Silent所说。我还用了一个函数对其进行了一些改变，以方便使用，如下：
function P_ReplaceStr(ss,SubStr,NewStr:string;RepAll,IgCase:Boolean):string;
var
a:TReplaceFlags;
begin
if RepAll=true then
include(a,rfReplaceAll);
if IgCase=true then
include(a,rfIgnoreCase);
Result:=stringReplace(ss,Substr,Newstr,a);
end;
后两个参数表示是否全改，是否忽略大小写。
调用时：
Str1:=P_ReplaceStr(Str1,Str2,Str3,true,true);

多人接受答案了。