Recorrer y Reemplazar Texto en txt

[[coso]]

Hola, creo que puedes hacerlo de manera sencilla usando la propiedad .text de un TStringList (lo hago de cabeza, deberas probarlo)

Código Delphi [-]
var
   ss : TStringList;
begin
    ss := TStringList.Create;
    ss.LoadFromFile('c:\archivo.txt');
    ss.Text := StringReplace(ss.text,'22.150 ','22.250 ',[rfReplaceAll]);
    ss.SaveToFile('c:\archivo.txt');
end;

saludos.