[Страдалецъ]

Как я понял, вам необходимо добавлять в лог каждые 10сек некие записи.
Можно конечно на каждый сеанс делать свой лог-файл, но мне кажется лучше сделать один лог-файл с разделами для каждого сеанса.
Для этого мне кажется очень удобно воспользоваться классом TIniFile. Выглядеть тогда это будет так:

Код:

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, IniFiles;

type
  TForm7 = class(TForm)
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    Log: TIniFile;
    StartApp: String;
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);
begin
 StartApp := DateTimeToStr(Now);
end;

procedure TForm7.FormDestroy(Sender: TObject);
begin
 Log.Free;
end;

procedure TForm7.Timer1Timer(Sender: TObject);
begin
 Log := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Journal.log');
 Log.WriteString(StartApp,DateTimeToStr(Now),'... и они еще посидели немножко.');
 ProgressBar1.StepIt;
 Application.ProcessMessages;
 if ProgressBar1.Position = ProgressBar1.Max then Close;
end;

end.