1:
2:
3:
4:
5:
6:

procedure TForm1.Button2Click(Sender: TObject);
var i : Integer;
begin
  FOR i := 1 TO 100 DO
    IF Beende THEN Break;
end;                    

1:

procedure TForm1.Button2Click(Sender: TObject);                    

1:

IF Beende THEN Break;                    

1:

procedure TForm1.Button1Click(Sender: TObject);                    

1:
2:
3:
4:
5:
6:

Rewrite( Datei );
Reset( Datei );
Write( Datei, DsxDatei );
CloseFile( Datei );
Memo2.Clear;
...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

    AssignFile( Datei, Dateiname );
    i := 0;
    REPEAT
      inc( i );
      {$I-}
      Reset( Datei );
      {$I+}
      IF IoResult <> 0 THEN
        W := Messagedlg( 'Datei nicht gefunden !!! Nochmal versuchen ???', mterror, [mbYes,mbNo], 0 );
    UNTIL (IoResult = 0) OR (i = 3) OR (W=mrNo);                    

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

var Bool : Boolean;

Bool := False;
repeat
  for i := 1 to 3 do
    begin
      if FilesExists( Datei ) then
        begin
          AssignFile( Datei, Dateiname );
          Reset( Datei );
          Bool := True;
        end;
    end;
  if not Bool then
    W := Messagedlg( 'Datei nicht gefunden !!! Nochmal versuchen ???', mterror, [mbYes,mbNo], 0 );
until Bool or (W=mrNo);                    

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

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  IF (Length( Edit2.Text ) > 0) AND
     (Length( Edit2.Text ) < 255) THEN
    BEGIN
      DeleteFile( Dateipfad+'temp.tmp' );
      Bool := False;
      REPEAT
        {$I-}
        Bool := RenameFile( Dateiname, Dateipfad+'temp.tmp' );
        {$I+}
      UNTIL (IoResult = 0) AND Bool;
      AssignFile( Datei, Dateipfad+'temp.tmp' );
      Reset( Datei );
      [...]                    

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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  IF (Length( Edit2.Text ) = 0) or
     (Length( Edit2.Text ) > 254) THEN
    BEGIN
      Messagedlg( 'Sie müssen zwischen 1 und 255 Zeichen eingeben !!!', mterror, [mbok], 0 );
      Timer1.Enabled := False;
      Edit2.SetFocus;
    END
  else if FileExists( Dateiname ) then
    begin
      DeleteFile( Dateipfad+'temp.tmp' );
      RenameFile( Dateiname, Dateipfad+'temp.tmp' );
      Timer1.Enabled := False;
      Abschicken;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure Abschicken;
begin
  AssignFile( Datei, Dateipfad+'temp.tmp' );
  Reset( Datei );
  Inc( DsxDatei.LastInput );
  IF DsxDatei.LastInput > 15 THEN
    BEGIN
      FOR i := 2 TO 15 DO
        BEGIN
          DsxDatei.Inputs[ i-1 ] := DsxDatei.Inputs[ i ];
        END;
      DecodeTime( Time, Hour, Min, Sek, Sek100 );
      Str( Hour, StrHour );
      IF Hour < 10 THEN
        StrHour := '0' + StrHour;
      Str( Min, StrMin );
      IF Min < 10 THEN
        StrMin := '0' + StrMin;
      DsxDatei.Inputs[ 15 ].User := EnCode( UserName );
      DsxDatei.Inputs[ 15 ].Time := EnCode( StrHour + ':' + StrMin );
      DsxDatei.Inputs[ 15 ].Comment := EnCode( Edit2.Text );
      DsxDatei.LastInput := 15;
    END
  ELSE BEGIN
    DecodeTime( Time, Hour, Min, Sek, Sek100 );
    Str( Hour, StrHour );
    IF Hour < 10 THEN
      StrHour := '0' + StrHour;
    Str( Min, StrMin );
    IF Min < 10 THEN
      StrMin := '0' + StrMin;
    DsxDatei.Inputs[ DsxDatei.LastInput ].User := EnCode( UserName );
    DsxDatei.Inputs[ DsxDatei.LastInput ].Time := EnCode( StrHour + ':' + StrMin );
    DsxDatei.Inputs[ DsxDatei.LastInput ].Comment := EnCode( Edit2.Text );
  END;

{      DsxDatei.UserName[ DsxDatei.AnzahlUser ] := EnCode( UserName );}
  Rewrite( Datei );
  Write( Datei, DsxDatei );
  CloseFile( Datei );
  ListBox1.Items.Clear;
  FOR i := 1 TO 20 DO
    BEGIN
      IF DsxDatei.UserName[ i ] <> '' THEN
        BEGIN
          ListBox1.Items.Add( DeCode( DsxDatei.UserName[ i ] ) );           END;
    END;
  Memo1.Clear;
  FOR i := 1 TO DsxDatei.LastInput DO
    BEGIN
      Memo1.Lines.Add( DeCode( DsxDatei.Inputs[ i ].User ) + ' (' + DeCode( DsxDatei.Inputs[ i ].Time ) + '): ' + DeCode( DsxDatei.Inputs[ i ].Comment ) );
    END;
  RenameFile( Dateipfad+'temp.tmp', Dateiname );
  Alter := FileAge( Dateiname );
  Edit2.Text := '';
  Edit2.SetFocus;
end;                    

1:
2:

procedure Abschicken;  
begin                    

1:
2:
3:

procedure TMainForm.Abschicken();
var i : Integer;
begin