Problemas al utilizar sleep

[marcoszorrilla]

Empezado por escorpionrojo43

Hola Compañeros del foro
Estoy realizando un proyecto de prueba para el puerto lpt1
el asunto es el siguiente.

Código Delphi [-]
procedure TForm1.Button10Click(Sender: TObject);
 var x,i,tiempo,numero:integer;
 begin tiempo := strtoint(edit3.Text); //tiempo que tardara en espera para repetir
  numero := strtoint(edit2.Text);// es la cantidad de numeros que va a contar 
    for i := 0 to numero do    
 begin
Application.ProcesMessages;
 Out32($378,i);     
  label2.Caption := inttostr(i);  // aqui tiene que mostrarme valor de (i) pero se friza el programa y solo veo el valor final del conteo
       Sleep(tiempo); //tiempo que tardara en espera para repetir 
    end; 
end;

el asunto es que al utilizar sleep(tiempo) el programa no responde pero si hace su trabajo con el puerto osea envia los datos. necesito que el programa siga respondiendo por si deseo detener el contador o pausarlo. espero me den una manito con esto.

Un Saludo.

[javier7ar]

yo pondria el Application.ProcesMessages; antes del Sleep, despues de haber actualizado el label

Igualmente, si te interesa saber todos los nros que lees, yo los pondria en un memo, asi te quedan todos los nros.

Saludos

[escorpionrojo43]

Gracias chicos ya lo había encontrado, pero muchas gracias por el aporte, es bueno contar con su ayuda.
bueno pero el único detalle es que tiene el retaso de 1 segundo osea que lo pauso en el 3 y se detiene al llegar a 4