listbox

[gsilvei]

Hola a todos, tengo la siguiente procedure:

Código Delphi [-]
{$WRITEABLECONST ON}
procedure TForm1.SpeedButton2Click(Sender: TObject);
const
  i: integer = 0;
begin
     with ListBox4 do
        begin
         if i < Count then
          if Items[i+1] = 'S' then
           begin
             Self.Height := 739;
             Self.Width := 1024;
             Self.Left := 0;
             Self.Top := 0;
           end;
          if Items[i+1] = 'N' then
           begin
             Self.Height := 300;
             Self.Width := 550;
             Self.Left := 400;
             Self.Top := 400;
           end;
         if i < Count-1 then
            inc(i)
         else
            i:= 0;
        end;
    end;
end;
{$WRITEABLECONST OFF}

que recorre un listbox cada vez que hago clique en el speedbutton, la duda es que cuando cierro el form y ejecuto nuevamente, el no comienze a recorrer el listbox desde el comienzo y si desde el item que yo selecciono.
garcias por la ayuda.
saludos