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;