coldew的方法应该可以。
用下面的方法也行：
procedure TForm1.Button1Click(Sender: TObject);
VAR
S:STRING;
i:integer;
begin
s:=edit1.Text;
i:=Pos('，',s);
while i<>0 do
begin
Delete(s,Pos('，',s),Length('，'));
insert(',',s,i);
i:=Pos('，',s);
end;
edit1.Text :=s;
end;
var
s :String ;
sl :TStringList ;
i :Integer ;
begin
sl := TStringList.Create;
sl.LoadFromFile('f:/a.txt');
for i:=0 to sl.Count-1 do
begin
s := sl.Strings ;
sl.Strings := StringReplace(s,'，','.',[rfReplaceAll]);
end ;
sl.SaveToFile('f:/a.txt');
sl.Free ;
end;
