Zugriffsverletzung bei if in einer for-Schleife

[Helmi]

sie meinten es so:

Delphi-Quellcode:

var I: Integer; 

begin 
  for I := 1 to 13 do
    begin
      with (FindComponent('Image' + IntToStr(I)) as TImage) do
        begin
          if (Top = 96) and (Left = 8) then
            Top := 48
          else
            if (Top = 48) and (Left = 536) then
              Top := 96
            else
              if (Top = 96) and (Left = 536) then
                Top := 144
              else
                if (Top = 144) and (Left >= 9) then
                  Left := Left - 8
                else
                  if (Top = 144) and (Left = 8) then
                    Top := 96
                  else Left := Left + 8;
        end;
    end;
end;

Ich hab mir erlaubt es zu formatieren