1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

 for I := 0 to Editor.Lines.Count - 1 do
 begin
  if Editor.Lines[I] = 'text' then
  begin
    Editor.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
    ParserLbl.Caption := '1';
  end
    ParserLbl.Caption := '0';
  else if Editor.Lines[I] = 'caption' then
  begin
    Editor.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
    ParserLbl.Caption := '1';
  end;
  if parserlbl.Caption = '1' then
  begin
   wertlbl.Caption := Editor.Lines[I];
  end
 end;					

1:
2:
3:
4:
5:
6:

for I := 0 to Editor.Lines.Count - 1 do
begin
  ParserLbl.Caption := '0'; 
.....
.....
end;