This demo shows how to use the THPCounter-component in a routine that performs
a sleep without stopping program-execution.
Application.ProcessMessages permits Windows to process the messages that are
in the message queue, and therefore makes the application "alive" in a way that an
ordinary sleep-command wouldn't do.
procedure TForm1.Wait(MSec: integer);
begin
Caption:= 'Start';
HPCounter1.Start;
repeat
Application.ProcessMessages;
until HpCounter1.ReadInt >= MSec * 1000;
Caption:= 'Ready';
end;