Adquisición de datos

[Neftali [Germán.Estévez]]

Pon en un formulario un Label, un boton de Iniciar un boton de parar y un Timer.
El Timer configuralo con un intervalo de 250 (por ejemplo) e inicialmente Enabled = False;

En el boton de iniciar colocas

Código Delphi [-]
  Timer1.Enabled := True;
  _inicial := -1;

En al botón de parar:

Código Delphi [-]
Timer1.Enabled := False;

Y en el evento del Timer:

Código Delphi [-]
  if (_inicial = -1) then begin
    _inicial := Now;
  end;
  Label1.Caption := FormatDateTime('hh:nn:ss', (Now - _inicial));

Define _inicial en la parte privada como Double.