Überschreiben von zeilen per TFileStream

[mimi]

danke für den hinweise
das ist mir auch aufgefallen nach dem posten
aber der haupt fehler lag noch woanders und zwar hier

Delphi-Quellcode:

  while r = true do begin
      if FileStream.Position >= FileStream.Size then begin
        r:=False;
      end
      else begin
        FileStream.ReadBuffer(c,1);
        if (c = '[') and (test = True) then begin
          if test = true then
            r:=false;
          test:=True;
        end
        else begin
          str:=' ';
          FileStream.position:=FileStream.position-1;
          FileStream.WriteBuffer(str[1],Length(str));
        end;
      end;
    end;

irgenwie ist der gefundenpos an einer falschen position geraten und ich musst eigentlich nur noch sagen:
da wenn er das zeichen [ das zweite mal finden soll er aufhören und nicht beim erstenmal.