[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.