Hallo,
ich habe deinen Code nicht getestet, aber mich stutzt ein wenig deine Schleife
Delphi-Quellcode:
For j := 0 To dbgrid1.DataSource.DataSet.RecordCount Do
Begin
dbgrid1.DataSource.DataSet.RecNo := j;
Warum ab 0? Wenn Du keine Datensätze hast, dann wird das trotzdem durchlaufen und deine .RecNo=0 müsste auch scheitern.
Ist das vielleicht dein Problem?
Ciao
Frank