Zeilen in delphi

[Itachi]

Hallo,

ich will ein Programm zur Erstellung einer Protokolldatei mit maximal 200 Zeilen, und Wenn 200-Zeilen erreicht sind, soll diese Datei umbenannt auf Datei(nummer).ext umbenannt werden

aber ich weiß gar nicht was ich machen muss ich bin ja noch neu.
wäre super wenn jemand mir helfen kann.

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  log('FormCloseQuery');
  if
    MessageDlg ('Programm schließen?', mtConfirmation, [mbOk, mbCancel], 0) = mrCancel
    then
     CanClose:= False;
end;


procedure TForm1.Log(Text:string);
var
  F : Textfile;
  Filename: String;
  DT: String;
begin
  Filename := Extractfilepath(Application.ExeName) + 'Log.TXT';
  Assignfile(f, filename);
  if
    FileExists(filename)
    then
      Append(f)
  else
    Rewrite(F);
    DT := formatDAteTime ('dd:mm:yyyy hh:mm:ss.zzz', now);
    WriteLn(f, DT,' : ', Text);
    CloseFile(f)

,