Pues, a ver... quieres que al pulsar un boton que se dirija a la siguiente página, que corresponde al siguiente item.
Esto lo puedes conseguir incrementando el valor de ItemIndex cada vez que se pulsa el botón, recuerda que se debe verificar que no se sobrepase el límite:
Código Delphi
[-]
procedure TFormForm01.SpeedButton2Click(Sender: TObject);
begin
with ListBox1.Items do
begin
if ItemIndex < Count-1
then ItemIndex := ItemIndex + 1
else ShowMessage('Se ha llegado al último');
WebBrowser1.Navigate(strings[ItemIndex]);
end;
end;
Saludos,
PD: Utiliza las etiquetas [ DELPHI ] [ /DELPHI ] (sin espacios), para escribir el código... verás que es más legible el texto que introduzcas allí.