object Form1: TForm1 Left = 285 Height = 280 Top = 131 Width = 600 AutoSize = True Caption = 'CAPTCHA Demo' ClientHeight = 280 ClientWidth = 600 Constraints.MinWidth = 600 OnActivate = FormActivate OnCreate = FormCreate ShowHint = True LCLVersion = '2.3.0.0' object Captcha1: TCaptchaLabel Left = 16 Height = 97 Hint = 'CAPTCHA text. Try to read this text and input its characters in the box below.' Top = 16 Width = 568 Font1.Height = -48 Font2.Height = -48 Font2.Name = 'Courier New' LowercaseChars = 'abcdefghijklmnopqrstuvwxyz' NumericChars = '0123456789' NewCaptchaEvent = nceDblClick UppercaseChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' Align = alTop BorderSpacing.Left = 16 BorderSpacing.Top = 16 BorderSpacing.Right = 16 BorderSpacing.Bottom = 8 end object GroupBox1: TGroupBox Left = 16 Height = 71 Top = 129 Width = 568 Align = alTop AutoSize = True BorderSpacing.Around = 16 Caption = 'Enter CAPTCHA code to verify that you are a human' ClientHeight = 51 ClientWidth = 564 TabOrder = 0 object edCaptcha: TEdit AnchorSideLeft.Control = GroupBox1 AnchorSideTop.Control = GroupBox1 AnchorSideRight.Control = btnVerify Left = 16 Height = 23 Hint = 'Enter the CAPTCHA here' Top = 12 Width = 366 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 16 BorderSpacing.Top = 12 BorderSpacing.Right = 8 BorderSpacing.Bottom = 16 TabOrder = 0 TextHint = 'Enter the CAPTCHA code here...' end object btnVerify: TButton AnchorSideTop.Control = edCaptcha AnchorSideTop.Side = asrCenter AnchorSideRight.Control = btnRetry Left = 390 Height = 25 Hint = 'Compares the user input with the CAPTCHA text' Top = 11 Width = 75 Anchors = [akTop, akRight] BorderSpacing.Right = 8 Caption = 'Verify' OnClick = btnVerifyClick TabOrder = 1 end object btnRetry: TButton AnchorSideTop.Control = edCaptcha AnchorSideTop.Side = asrCenter AnchorSideRight.Control = GroupBox1 AnchorSideRight.Side = asrBottom Left = 473 Height = 25 Hint = 'Create a new CAPTCHA text (or double-click on the CAPTCHA)' Top = 11 Width = 75 Anchors = [akTop, akRight] BorderSpacing.Right = 16 Caption = 'Retry' OnClick = btnRetryClick TabOrder = 2 end end end