1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  b: string;
  i, ch: byte;
begin
  b:= ' [Stopped Logging at ' + timetostr(now) +'] ';
  for i:= 1 to length(b) do
    begin
      ch:= ord(b[i]);
      write(f,ch);
    end;
  closefile(f);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

program dklog;

uses
  Forms,
  UMain in 'UMain.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm:= false;
  Application.Run;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

program Project2;

uses
  Forms, dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  Showmessage('Beendet?');
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

program dklog;

uses
  Forms,
  UMain in 'UMain.pas' {Form1};

{$R *.res}
var
g: textfile;

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm:= false;
  Application.Run;
  assignfile(g, 'C:\test.txt');
  rewrite(g);
  writeln(g, 'test');
end.