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:

Procedure Rueck;
Var G   : TextFile;
    H   : TextFile;
    I   : Word;
    P   : Word;
    SR  : TSearchRec;
    S   : String[255];
    T   : String[255];

Begin
  SetCursor(LoadCursor(0, PChar(idc_Wait)));
  S := ParamStr(0);
  For I := 1 to Length(S) Do
   S[I] := UpCase(S[I]);
  P:= Pos('.EXE', S);
  S := Copy(S, 1, P - 1) + '.DOC';
  T := Copy(S, 1, P - 1) + '.OLD';

  If (FindFirst(T, faAnyFile, SR) = 0) Then Begin
   AssignFile(G, S);
   AssignFile(H, T);
   Erase(G);
   Rename(H, S);
   MessageDlg('  Funktion "Rückgängig" ausgeführt !  ',
                 mtInformation, [mbOk], 0);
  End {* If *}
  Else Begin
   MessageDlg('  Funktion "Rückgängig" nicht möglich,  '^M +
              '          da Backup dazu fehlt !        ',
                 mtInformation, [mbOk], 0);
  End; {* Else *}
  SetCursor(LoadCursor(0, PChar(idc_Arrow)));
End; {* Procedure *}