Recorrer Listbox

[DM2005]

Hola a todos, encontre en un hilo a 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] = 'N' then
           begin
             Self.Height := 300;
             Self.Width := 550;
             Self.Left := 400;
             Self.Top := 400;
           end;
          if Items[i] = 'S' then
           begin
             Self.Height := 739;
             Self.Width := 1024;
             Self.Left := 0;
             Self.Top := 0;
           end;
         if i < Count-1 then
            inc(i)
         else
            i:= 0;
        end;
    end;
end;
{$WRITEABLECONST OFF}

esta recorre un listbox, y cuando se encuentra con los item 'N' y 'S', cambia el tamaño del form, la duda es como alterarla para que cuando selecciono un item del listbox (ej.: nº item 22), no recorra el listbox desde el comienzo y si a partir del item que selecciono.
gracias por la ayuda.
Saludos