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

filecreate('c:\windows\transfer.txt');
  begin
    AssignFile(proto,'c:\windows\transfer.txt');
    {$i-}
    Append(proto);
    {$i+}
    if IOResult <> 0 then
      begin
        //goto anfang;
      end;
    end;
  writeLn(proto, ' Programm wurde gestartet');
  closefile(proto);					

1:

deletefile('c:\windows\transfer.txt');					

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

{$I-}
AssignFile(proto,'Dateiname');
Append(proto);
if IoResult <> 0 then ReWrite(proto);

{ ... }

CloseFile(proto);
{$I+}