Jak wyszukac wszyskie stringi w :
object Form1: TForm1
Left = 182
Top = 255
Width = 553
Height = 303
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = menu
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 48
Width = 34
Height = 13
Caption = 'Opcje :'
end
object Label2: TLabel
Left = 40
Top = 72
Width = 56
Height = 13
Caption = 'wysokosc : '
end
object Label3: TLabel
Left = 40
Top = 96
Width = 54
Height = 13
Caption = 'szerokosc :'
end
object Edit1: TEdit
Left = 104
Top = 64
I zapoisac je do Tlist ?