Delphi Led geser

object Form1: TForm1
Left = 197
Top = 92
Width = 475
Height = 223
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
WindowState = wsMinimized
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 457
Height = 73
TabOrder = 0
object Shape1: TShape
Left = 16
Top = 16
Width = 41
Height = 41
Shape = stCircle
end
object Shape2: TShape
Left = 72
Top = 16
Width = 41
Height = 41
Shape = stCircle
end
object Shape3: TShape
Left = 120
Top = 16
Width = 49
Height = 41
Shape = stCircle
end
object Shape4: TShape
Left = 176
Top = 16
Width = 41
Height = 41
Shape = stCircle
end
object Shape5: TShape
Left = 232
Top = 16
Width = 41
Height = 41
Shape = stCircle
end
object Shape6: TShape
Left = 289
Top = 16
Width = 41
Height = 41
Shape = stCircle
end
object Shape7: TShape
Left = 345
Top = 16
Width = 41
Height = 41
Shape = stCircle
end
object Shape8: TShape
Left = 400
Top = 16
Width = 41
Height = 41
Shape = stCircle
end
end
object TPanel
Left = 0
Top = 74
Width = 457
Height = 25
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 18
Font.Name = 'MS UI Gothic'
Font.Style = []
ParentFont = False
TabOrder = 1
object D0: TLabel
Left = 26
Top = 3
Width = 21
Height = 18
Caption = 'D0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 18
Font.Name = 'MS UI Gothic'
Font.Style = []
ParentFont = False
end
object D1: TLabel
Left = 82
Top = 3
Width = 21
Height = 18
Caption = 'D1'
end
object D2: TLabel
Left = 135
Top = 3
Width = 21
Height = 18
Caption = 'D2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 18
Font.Name = 'MS UI Gothic'
Font.Style = []
ParentFont = False
end
object D3: TLabel
Left = 187
Top = 3
Width = 21
Height = 18
Caption = 'D3'
end
object D4: TLabel
Left = 244
Top = 3
Width = 21
Height = 18
Caption = 'D4'
end
object D5: TLabel
Left = 299
Top = 3
Width = 21
Height = 18
Caption = 'D5'
end
object D6: TLabel
Left = 354
Top = 3
Width = 21
Height = 18
Caption = 'D6'
end
object D7: TLabel
Left = 411
Top = 3
Width = 21
Height = 18
Caption = 'D7'
end
end
object TPanel
Left = 0
Top = 101
Width = 457
Height = 84
TabOrder = 2
object Label1: TLabel
Left = 24
Top = 9
Width = 222
Height = 20
Caption = 'Masukan input angka(max.225)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 20
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Proses: TButton
Left = 28
Top = 38
Width = 97
Height = 29
Caption = '&Proses'
TabOrder = 0
OnClick = ProsesClick
end
object Clear: TButton
Left = 182
Top = 38
Width = 97
Height = 29
Caption = '&Hapus'
TabOrder = 1
OnClick = ClearClick
end
object Exit: TButton
Left = 338
Top = 38
Width = 89
Height = 29
Caption = '&Keluar'
TabOrder = 2
OnClick = ExitClick
end
object Edit1: TEdit
Left = 264
Top = 8
Width = 121
Height = 21
TabOrder = 3
end
end
end

tampilan :
o------0
-0----0-
--0--0--
---00---
--0--0--
-0----0-
0------0