Stuck

[Error] (677:5): Syntax error at line 676
Compiling failed.

Line 676 =     for I := 0 to 0 do 

procedure WalkToAlter;   
var


  Path: TStringArray;
  I: Integer;

Begin;
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
 Case Random(6) Of    //this is the problem because there's a 0 below

 0:        Path:= [''];

    for I := 0 to 0 do  // 0 here, wut do?
    ObjDTM_Walk(Path[i], 0, 100, 80, True);

      Wait(1000+Random(500));