1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.Button1Click(Sender: TObject);
var
  vTimestamp1, vTimestamp2: Integer;
  vfile: TextFile;
  i: integer;
begin
  running := true;
  Button1.Enabled := false;
  AssignFile(vFile, '.\File.txt');
  Append(vFile);  //Datei wird als vorhanden vorausgesetzt
  i := 1;

  try
    WriteLn(vFile, 'Sleep: 1542 ms');  //Header
    while running do
    begin
      vTimestamp1 := GetTickCount;
      sleep(1542);
      vTimestamp2 := GetTickCount;
      vTimeStamp2 := vTimestamp2 - vTimestamp1;
      WriteLn(vFile, 'Diff [ms]: ', inttostr(vTimeStamp2),  #13,
        'Durchgang: ', inttostr(i));
      DurchgangEdit.Text := inttostr(i);
      DiffEdit.Text := inttostr(vTimeStamp2);
      inc(i);
    end;
  finally
    CloseFile(vFile);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Running := false;
  Button1.Enabled := true;
end;