字符串的替换问题(100分)

假如要将extract.bat文件的字符串1028全部替换换为1030
文件内容为：
lza d:/a1028.lzh d:/test
lza d:/b1028.lzh d:/test
lza d:/c1028.lzh d:/test
通过文件操作怎样去实现呢？100分奉送

var
TempStringList: TStringList;
TempString: String;
Loc: Integer;
begin
TempStringList:=TStringList.Create;
try
TempStringList.LoadFromFile('extract.bat');
TempString:=TempStringList.Text;
Loc:=pos('1028', TempString);
while Loc>0 do
begin
TempString[loc+2]:='3';
TempString[loc+3]:='0';
Loc:=pos('1028', TempString);
end;
TempStringList.SaveToFile(extract.bat);
finally
TempStringList.Free;
end;
end;

把它读到流里面，该完后改完后，再读回去，目前就这想法。
关注中。
[][][]

用StringReplace函数

做一个循环就够了;

接受答案了.