Data commit

Task/Metronome/Delphi/metronome.delphi

@@ -0,0 +1,27 @@
+program Metronome;
+
+{$APPTYPE CONSOLE}
+
+uses
+  Winapi.Windows,
+  System.SysUtils;
+
+procedure StartMetronome(bpm: double; measure: Integer);
+var
+  counter: Integer;
+begin
+  counter := 0;
+  while True do
+  begin
+    Sleep(Trunc(1000 * (60.0 / bpm)));
+    inc(counter);
+    if counter mod measure = 0 then
+      writeln('TICK')
+    else
+      writeln('TOCK');
+  end;
+end;
+
+begin
+  StartMetronome(120, 4);
+end.