Zeilenanzahl bei name.log Datei begrenzen

[aaaaaaaaaa_10]

Was von meinem Vorgänger

Delphi-Quellcode:

type
  TLogFile = class(TObject)
  private
     FFileName: String;
    FLogSize: Integer;
    FAppLog: Boolean;
  public
      constructor Create(FileName: string; LogSize: integer; AppLog: boolean);
    destructor Destroy; override;
      procedure AddLine(Line: string);
      property FileName: string read FFileName;
  end;