From edf8329b282872f94ba1df3a256f0f679cb11dcb Mon Sep 17 00:00:00 2001
From: Michael Schimmel <schimmel@mycelium.de>
Date: Fri, 5 Sep 2025 12:28:26 +0200
Subject: [PATCH] OHLC

---
 ASTPlayground/MainForm.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ASTPlayground/MainForm.pas b/ASTPlayground/MainForm.pas
index 222069d..10ec06f 100644
--- a/ASTPlayground/MainForm.pas
+++ b/ASTPlayground/MainForm.pas
@@ -394,10 +394,10 @@ end;
 
 procedure TForm1.OHLCButtonClick(Sender: TObject);
 const
-    numRecs = 1000000;
-    lookback = 100;
-    smaSlowLength = 50;
-    smaFastLength = 20;
+    numRecs = 100;
+    lookback = 50;
+    smaSlowLength = 20;
+    smaFastLength = 10;
 begin
     // 1. Setup
     Memo1.Lines.Clear;