Probleme bei CSV zu StringGrid

[BasicX]

Moin,
Ich habe folgende Prozedur gebastelt und bin (nach langem Versuchen) auf folgende Lösung gekommen:

Code:

procedure TForm9.Timer1Timer(Sender: TObject);
Var
  I,A : Integer;
  fields: Array of Array of String;
  fieldsTemp: TStringList;
begin
  Memo1.Lines.LoadFromFile(--irgend eine CSV-);
  if Memo1.Lines.Count > 0 then
  begin
    for I := 0 to Memo1.Lines.Count - 1 do
    begin
      fieldsTemp := TStringList.Create;
      fieldsTemp := Split(Memo1.Lines.Strings[I],';');
      Stringgrid1.RowCount := Memo1.Lines.Count+1;
      StringGrid1.ColCount := fieldsTemp.Count;
      SetLength(fields,Memo1.Lines.Count-1);
      for A := 0 to fieldsTemp.Count - 1 do
      begin
        if Memo1.Lines.Count < 1 then
        begin
//        Application.MessageBox(Pchar(inttostr(Memo1.Lines.Count)),'Wert');
          SetLength(fields[I],Memo1.Lines.Count+1);
//        SetLength(fields[I],Memo1.Lines.Count);
          fields[I,A] := fieldsTemp.Strings[A];
          StringGrid1.Cells[A,I+1] := fields[I,A];
        end;
      end;
    end;
  End;
end;

Nur kommt beim 2. oder 3. Durchlauf eine Zugriffsverletzung(ohne veränderung des CSV inhaltes), und ich habe keinen Schimmer, woher die kommen kann...
Ich hab heute irgendwie voll die Denkblokade

Gruß Christian