Reemplazar texto en un textfile..

[rulo_m]

Bueno mi pregunta es la siguiente.. como hago para reemplazar una "palabra" en un textfile.
el archivo de texto lo asigne a una variable de este tipo.. no lo visualizo en ningun memo ni nada, pero quiero poder reemplazar una palabra "codigonuevo.text" en todas sus ocurrencias..

Código Delphi [-]
AssignFile (myFile, archivo);
    Rewrite (myFile);
    while not EOF (myFile) do
    begin
      ReadLn (myFile, linea);
      posicion := pos (',', Linea); //posicion del separador
          codigo := Copy (Linea, 0, posicion - 1);
          cant    := Trim (Copy (Linea, posicion + 1, length (linea)));
          if codigoerror.text=codigo then
          begin
          cad:=codigonuevo.text+','+cant;
         // Writeln(myFile,cad);
          end;
    end;
    CloseFile(myFile);

codigoerror es un edit con la palabra a reemplazar con codigonuevo.text..
se puede hacer algo asi? asi como lo tengo, pasa que el archivo se vacia..
a ver si me di a entender, por cierto uso delphi 2007.. gracias por adelantado.

o no se puede hacer directamente?... y tengo q vaciarlo en un memo o una lista, y entonces buscar y reemplazar?