Exeption - Woher?

[grenzgaenger]

hier mal 'n kleines testprogramm:

Delphi-Quellcode:

UNIT Unit1;

INTERFACE

USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, csv;

TYPE
  TForm1 = CLASS(TForm)
    sg: TStringGrid;
    PROCEDURE FormCreate(Sender: TObject);
    PROCEDURE FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    sl: TStringList;
  public
    { Public-Deklarationen }
  END;

VAR
  Form1: TForm1;

IMPLEMENTATION

{$R *.dfm}

PROCEDURE TForm1.FormCreate(Sender: TObject);
VAR
  csv: tCSV;
  i:   integer;
  j:   integer;
BEGIN
  sl := TStringList.Create;
  sl.LoadFromFile('Buecher.txt');
  csv := tCSV.Create;
  TRY
    sg.ColCount := 8;
    sg.RowCount := sl.Count + 1;
    FOR i := 0 TO sl.Count - 1 DO
    BEGIN
      csv.Analyze(sl.Strings[i]);
      sg.Cells[0, i + 1] := IntToStr(i + 1);
      FOR j := 0 TO csv.Count - 1 DO
        sg.Cells[j + 1, i + 1] := csv.Columns[j];
    END;
  FINALLY
    csv.Free;
  END;
END;

PROCEDURE TForm1.FormDestroy(Sender: TObject);
BEGIN
  sl.Free;
END;

END.

Edit://Code umformatiert, da die codedarststellung in der DP recht eigensinnig ist und macht was sie will ... hoffe so ist es besser lesbar

Edit2: Kommentar von vorhin noch mal hinzugefügt, da der Editor diese vorloren hat...:

Wenn Du dir die zeilen ansiehst, sollte dir etwas bei auffallen...