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