Probleme beim Hinzufügen/überschreiben

[mimi]

Hallo,
ich weiß nicht mehr weiter. und hoffe das ihr einen fehler findent:

Delphi-Quellcode:

procedure TNote1.WriteText(Text:TStrings;id:String);
var
  str,str1:String;
  i,count:integer;
  c:Char;
  r:Boolean;
  oldpos:Integer;
  test:Boolean;
  TextStream:TMemoryStream;
  Writer:TWriter;
  Lesen:TReader;
begin
  if FindItem('[TextItem='+id+']') = False then begin
    str:=#13#10#13#10+'[TextItem='+id+']'+#13;
    FileStream.WriteBuffer(str[1],Length(str));
    Writer:=TWriter.Create(FileStream,10);
    Writer.WriteString(text.Text);
    Writer.FlushBuffer;
  end
  else begin
    r:=True;
    FileStream.Position:=gefundenpos;
    Lesen:=TReader.Create(FileStream,10);
    lesen.ReadString;
    count:=FileStream.Position;
    FileStream.Position:=gefundenpos;
    for i:=0 to count-gefundenpos do begin
      str:=' ';
      FileStream.WriteBuffer(str[1],Length(str));
    end;
    FileStream.Position:=gefundenpos;
    Writer:=TWriter.Create(FileStream,10);
    Writer.WriteString(text.Text);
    Writer.FlushBuffer;
end;
end; // WriteText

Das hinzufügen funktioniert wie ich es mir vorstelle nur das ändern von texten funktioniert nicht
das ergbnis soll so aussehen:

Zitat:

[ItemList]
Dies=49575053554956525749=08.10.2006=16:13:11
ist=50494950495550574956=08.10.2006=16:13:13
ein=49504955525649545055=08.10.2006=16:13:15
test=49515055495049505054=08.10.2006=16:13:18
von=51514954495149494949=08.10.2006=16:13:21
heute=49534949504950544955=08.10.2006=16:13:234

[TextItem=49575053554956525749]
Test1
Test2
Test3

[TextItem=50494950495550574956]
Hallo1
Hallo2
Hallo3

aber leider sieht es nach DEM bearbeiten so aus:

Zitat:

[ItemList]
Dies=49575053554956525749=08.10.2006=16:13:11
ist=50494950495550574956=08.10.2006=16:13:13
ein=49504955525649545055=08.10.2006=16:13:15
test=49515055495049505054=08.10.2006=16:13:18
von=51514954495149494949=08.10.2006=16:13:21
heute=49534949504950544955=08.10.2006=16:13:234

[TextItem=49575053554956525749]
Test1
Test2
Test3
Test4 tem=50494950495550574956]
Hallo1
Hallo2
Hallo3

ich habe dem ersten eintrag(49575053554956525749) einen eintrag hinzugefügt.
die datei ist zum lesen/schreiben geöffnet.
vielen dank im vorraus !