Problema con bucle.

[ixMike]

A ver si te gusta esta alternativa:

Coloca un TMemo, un TTimer y un TButton.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
y:=Memo1.Lines.Count;
x:=0;
Timer1.Interval:=35000; //Esto se puede poner en tiempo de diseño.
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If y>x then
  begin
  ShellExecute(Handle, 'open', PChar(Memo1.Lines[x]), nil, nil, SW_SHOWNORMAL);
  Inc(x);
  end
 else
  Close;
end;

Ahora sólo tendrás que escribir las páginas en el Memo1 (sin dejar renglones en blanco). No tendrás la limitación de 20 páginas, ni tendrás que escribir la cantidad en un edit. Además, podrías poner otro edit, para indicar el tiempo (en segundos) de espera. Sólo tendrías que cambiar una cosa:

Código Delphi [-]
Timer1.Interval:=StrToInt(EditTiempo.Text)*1000; //multiplico *1000 porque está es segundos

¿Te gusta?

Salu2