[delphi]Dopisywanie do pliku

Witam!

W jaki sposób dopisać coś do pliku tekstowego? Funkcja writeln nadpisuje mi zawartość pliku, a ja chce np. lecieć od początku pliku i sprawdzac jakis warunek w zaleznoscie od tego jaki bedzie wyniki operacji wpisać dana linie np. w 3 wierszu.

Czy wie ktoś jak to zrobic?

Ja wiem

var f: textfile;
begin
 AssignFile(f, 'c:\test.txt');
 Append(f);
 WriteLn(f, 'To jest na końcu pliku');
 Flush(f)
 CloseFile(f);
end;