Problemas al utilizar sleep

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