Schreiben einer Zeile in ein Textfile - need help, THX

[onkelfabi]

Hallo zusammen,

ich lese schon seid einigen Monaten hier mit, doch jetzt hab ich nen Problem und stehe im Wald...

Ich möchte an die Stelle im unterem Source Code "Hilfe benötigt"
einen bestimmten Inhalt in die Textdatei schreiben, der Inhalt vor und nach der Position (linecounter)muß erhalten bleiben...
die Position an der geschrieben werden soll "linecounter" sein.

Wenn ich Rewrite / Write benutze wird der gesamte Inhalt des Files gelöscht und das will ich nicht.

Beispiel des Textfiles:
#############################################

12345
x xyz
--------> hier soll z.B. 12346
--------> x xyz eingetragen werden
12347
x xyz

#############################################

Code:

...
var
  ZIFF_0,ZIFF_1, POS_1, POS_2, linecounter: integer;
  pfad,Jahreszahl,tempstr,CurrentLine, SearchLine, filenameold, filenamenew : string;
  myFile: Textfile;
...
       while not eof(myfile) do                     //solange bis das Dateiende erreicht ist
        begin
            ReadLn(myFile, CurrentLine);            //Datei zeilenweise durchsuchen und Ergebnis der Zeile nach CurrentLine
            linecounter:=linecounter+1;             //Zeile ++
            if IsValidInteger(CurrentLine) then     //gültige Integerzahl gefunden ??
              begin

                 POS_1:= linecounter;               //wird für später benötigt
                 ZIFF_1:= StrToInt(Currentline); 

                 if ZIFF_0 < ZIFF_1 then
                 begin
                    POS_2:=linecounter;              //geht auch mit FilePos, ich weis :)

                    showmessage ('Insert '+IntToStr(ZIFF_0)+ ' here on Position Line ' + IntToStr(POS_2) + '.' ); //Debug, Stelle in Datei und Wert passt 1a

                    //ReWrite(myFile);
                    //Write (myFile,'Write Test here'); //hier wird die HILFE benötigt !!!!

                    CloseFile(myfile);
                    CopyFile(filenameold,filenamenew);
                    exit;
                 end
....