object Form1: TForm1 Left = 323 Height = 240 Top = 171 Width = 320 Caption = 'Motion Graphics Test' ClientHeight = 240 ClientWidth = 320 OnPaint = FormPaint LCLVersion = '1.9.0.0' object Label1: TLabel Left = 6 Height = 15 Top = 6 Width = 35 Caption = 'Speed:' ParentColor = False end object trackSpeed: TTrackBar Left = 56 Height = 31 Top = 8 Width = 256 Frequency = 10 Max = 100 Min = 10 OnChange = trackSpeedChange Position = 30 TabOrder = 0 end object timerRedraw: TTimer Interval = 100 OnTimer = timerRedrawTimer left = 99 top = 133 end end