EAccessViolation Fehler

[Tempest08]

Beim Debuggen stoppt er an folgender Stelle:

Delphi-Quellcode:

procedure TForm1.Ausgeben;
var yPos: integer;
begin
  for yPos:= 1 to 30 do begin
    StringGrid1.Cells[1, yPos]:= '';
    StringGrid1.Cells[2, yPos]:= '';
  end;
  sportler:= schnellster;
  ypos:= 1;
  while sportler <> nil do begin
    StringGrid1.Cells[1, yPos]:= sportler^.name;
    StringGrid1.Cells[2, yPos]:= FloatToStr(sportler^.zeit);  //<--- Diese Zeile sei ein EAccessViolation
    sportler:= sportler^.next;
    ypos:= ypos+1;
  end;
end;

Ist mir allerding schleierhaft, dass er die while schleife einmal komplett durchläuft und beim zweiten Mal an der benannten Stelle abbricht...