[delphi]zapis do pliku z memo na gore :)

witam...
zapisuje z memo do pliku txt w ten sposob:

assignfile(t, 'memotext.txt');
 if FileExists('memotext.txt') then
    Append(t)
   else
    Rewrite(t);
     writeLn(t, DateToStr(Date) + (' ; ') + TimeToStr(Time));
      for i := 0 to memglowny.lines.count-1 do
       writeln(t, memglowny.lines[i]);
       writeln(t, '------------------------');
      closefile(t);

jak zrobic zeby kolejne informacje nie byly dopisywane do pliku na jego koncu a na poczatku ?? :(

Utworzyć nowy plik,
wpisać do niego dane z memo,
dodać dane z poprzedniego pliku,
usunąć stary plik,
zmienić nazwę nowego pliku na starą nazwę.

Lines.Insert + F1 ;)