Rutinas para generar perfil biometrico en base a dinámica de teclado usando THPCounter

dinamica_teclado.pas

begin
  HPCounter1.Start;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
//alto al conteo al soltar la tecla presionada

var
  valor  : string;
  valor1 : integer;

begin
  Valor := HPCounter1.Read;
  valor1 := strtoint64(Hpcounter1.read) div 10;
  valor := inttostr(valor1);
  ListBox1.Items.Add(Valor); 
  //aquí graficamos los datos
  XYGraph1.AddPoint(H,Contador,strtoint64(Valor));
  Contador := Contador + 1;
  //hacemos la gráfica usando el componente
  XYGraph1.Paint;
end;