procedure TForm1.Button10Click(Sender: TObject);
var x,i,tiempo,numero:integer;
begin tiempo := strtoint(edit3.Text); numero := strtoint(edit2.Text); for i := 0 to numero do
begin
Application.ProcesMessages;
Out32($378,i);
label2.Caption := inttostr(i); Sleep(tiempo); end;
end;