Memo içerisinde belirtilen parametreler arasındaki veri

[BULENTELMAS]

Merhaba,
Memo içerisinde satır satır bilgilerim var.
Sabit arattığım değer var, değerler arasında bulduğu değerleri başka bir memo içerisine aktarmak istiyorum.
(Parametrem ;TEST) iki test arası veri aktarmak istediğim
;TEST
;SURE = 10DK 13SN
N1 G79 Z0
N2 M10
N3 M12
N4 M6T36
N5 S18000 M3
N6 h36
N7 G0 Z30.
N8 G0 X2275.2 Y1572.2
N9 G0 Z20.
N10 G1 Z11. F6000
N11 G1 X2686.2 F12000
N12 G1 Y1948.2
N13 G1 X2275.2
N14 G1 Y1572.2
;TEST
N15 G0 Z30.
N16 G0 X2350.2 Y94.2
N17 G0 Z20.
N18 G1 Z12. F6000
N19 G1 Y1383.2 F12000
N20 G1 X2499.2
N21 G1 Y94.2
N22 G1 X2350.2
N23 G0 Z30.
;TEST
N24 G0 X2263.2 Y1560.2
N25 G0 Z20.
N26 G1 Z11. F6000
N27 G1 X2698.2 F12000
N28 G1 Y1960.2
N29 G1 X2263.2
N30 G1 Y1560.2
N31 G0 Z30.
N32 G0 X2342.2 Y86.2

[ertank]

Merhaba,

Kullandığınız Delphi sürümü nedir?
Hangi iki ;TEST arasındaki verileri aktarmak istiyorsunuz? Birden fazla yerde bu ifade geçiyor.

[IZLEN]

pos('test',memo.lines.text) ile yerleri bulup arasindaki degeri copy ile alabilirsin