Daten in Arrays speichern?

[Darko]

Vielleicht liegt hier ja auch der Fehler (es steht noch irgendwas von Lesen in der Fehlermeldung und eine tolle Adresse ):

Delphi-Quellcode:

 if NOT (iAbt_Abw=0) then begin
  WriteLn(Datei,'<tr>');
  WriteLn(Datei,'<td width="33%">Abteilung</td>');
  WriteLn(Datei,'<td width="33%">Stunden</td>');
  WriteLn(Datei,'<td width="34%">Grund</td>');
  WriteLn(Datei,'</tr>');

  for iAbt_Abw_Druck:=0 to iAbt_Abw do begin
    WriteLn(Datei,'<tr>');
    WriteLn(Datei,'<td width="33%">'+abteilung_abw[iAbt_Abw_Druck]+'</td>');
    WriteLn(Datei,'<td width="33%">'+stunden_abt_abw[iAbt_Abw_Druck]+'</td>');
    WriteLn(Datei,'<td width="34%">'+grund_abt_abw[iAbt_Abw_Druck]+'</td>');
    WriteLn(Datei,'</tr>');
  end;
 end;