EXCEPTION EAccessViolation beim füllen eines StringGrid

[Henni]

es geht darum commaseparated-values (*.CSV) in ein StringGrid zu schreiben. leider tritt dabei ein falscher fehler auf. das programm läuft aber nach weg-klicken der fehlermeldung weiter und das resultat stimmt auch. der fehler tritt leider auch bei kleinen datein (1000byte) auf. achja ... danach gibt es noch eine "Zugriffsverletzung".

Wäre schön, wenn mir jemand helfen könnte ! hier nochmal der code:

Code:

procedure TForm1.Button2Click(Sender: TObject);
var f1, f2: textfile;
    l1, l2: string;
    p1, p2: PChar;
    t: string;
    a: char;
    i, c, r: integer;
begin
  AssignFile(f1, pfad + s2);  //s1 und s2 sind die dateinamen
  AssignFile(f2, pfad + s1);
  Reset(f1);
  Reset(f2);
  r:= 0;
  while not eof(f1) do  // zeilenweises lesen der datei
  begin
    readln(f1, l1);
    StrPCopy(p1, l1);
    t:= '';
    c:= 0;
    for i:= 0 to strlen(p1) do
    begin
      if (p1[i]='|') or (p1[i]=';') then    // seperator gefunden ?
      begin
        StringGrid2.Cells[c, r]:= t;
        t:= '';
        inc(c);
      end else
      begin
        a:= p1[i];
        t:= t + a;
      end;
    end;
    inc(r);
    StringGrid2.RowCount:= StringGrid2.RowCount + 1;
  end;
  CloseFile(f1);
  CloseFile(f2);
end;

Vielen Dank im voraus !
Henni