1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

dbgrid1.DataSource.DataSet.RecNo:=i;
      daten[i-1] := adoquery1.Fieldbyname('Matchcode').AsString;

     end;

 {$Region'Festlegung'}
    // x:=suchen.Text;


    z:=0;
     x := UpperCase(suchen.Text);
    for i := 0 To 165 Do
      if posex(x, UpperCase(daten[i]),k) <> z  then
        begin


          dbgrid1.DataSource.DataSet.RecNo:=(i+1) ;

          {$Region'Visible'}

(....)

 {$Endregion}

          {$Region'Ausgabe'}

 (...)
  Auswertungskennzeichen.Text:=adoquery1.FieldByName('Auswertungskennzeichen').AsString;

          {$endregion}

          {$Region'IfVisible'}

  
  (...)

  {$endregion}

       end
       else

          begin
        end
  {$Endregion}

   end;