Bin ich zu dumm oder ...

[bjacke]

Hi, ich sitze jetzt schon eine halbe Stunde an dieser Quelltextpassage und finde den Fehler nicht !

Delphi-Quellcode:

   Begin
   AssignFile(f,getcurrentdir+'\data.geb');
   Reset(f);
   with Unit2.Bear do
   Begin
    Read(f,RowC);
    for i:=1 to 5 do          // -> 1 Spalte und Zeilen auslassen!
    for x:=1 to RowC-1 do
      Begin
      Read(f,Cells);
      Grid3.Cells[i,x]:=Cells;
      End;
   End;
   CloseFile(f);
   End;

Könnt ihr mir weiterhelfen