Wieder E/A-Fehler...aber ich finde ihn nicht

[Kasch]

Hallo Leute,

sollte eigentlich recht einfach sein, aber scheinbar doch nicht:

Delphi-Quellcode:

procedure TForm1.btn_ladeClick(Sender: TObject);
var

    daten1: array[1..100]  of string;
    s: string [64];
    datei: textfile;

begin
  AssignFile(datei,'e:\aaa.txt');
    Reset(datei);

  if IOResult <> 0 then begin // Fehler beim Öffnen
      Rewrite(datei);  // Erzeuge Datei
      if IOResult <> 0 then begin
        ShowMessage('Datei konnte nicht angelegt werden');
        exit;
      end;
    end;

for y:=1 to 100 do
  begin
   daten1[y]:=inttostr(y); //Fülle das Array einfach sinnlos mit einem String
   s:= daten1[y];          // Sicher ist sicher, ein einfacher Pufferstring nimmt den Array-String auf
   writeln(datei,s);       // Hier steigt er aus
  end;

 closefile(datei);

end;

Es bricht sofort nach dem Drücken ab, mit Fehlermeldung E/A 103, obwohl ich einen Abfangzweig mit Message eingebaut habe, wird es ignoriert... was kann das sein? Bin extremst ratlos, weil im Forum ja alle Beispiele ähnlich sind..