1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm2.Button1Click(Sender: TObject);
var x1 : Integer;
begin

  for (a=strtoint(memo1.lines.text)) or (b=strtoint(memo1.lines.text))  or (c=strtoint(memo1.lines.text)) in Memo1.Lines do begin
  inc(x1);

end;                    

1:
2:
3:
4:

for (a:=strtoint(memo1.lines.text)) or (b:=strtoint(memo1.lines.text))  or (c:=strtoint(memo1.lines.text)) in Memo1.Lines do 
begin
 inc(x1)
end;                    

1:
2:
3:
4:
5:

For a := 1 to 100 do
begin
  if (a = 50) or (a = 70) then exit;
 
end;                    

1:
2:
3:
4:

if (a=strtoint(memo1.lines.text)) or (b=strtoint(memo1.lines.text))  or (c=strtoint(memo1.lines.text)) in Memo1.Lines then
begin
  inc(x1);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

var
  c: Char;
  MyString: string;
begin
  MyString := 'abc';
  for c in MyString do
    if c in ['1', '3'] then
      ...                    

1:

for (a=...) or (b=...)                    

1:
2:
3:

for i := 0 to Memo.Lines.Count - 1 do
  if(pos('1', Memo.Lines[I]) > 0)then
    inc(x);                    

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

var a, b, c, d, e, f, x1 : Integer;
var I: array[1..1000] of integer;
begin
for a := 0 to Memo1.Lines.Count - 1 do
  if(pos('1', Memo1.Lines[I]) > 0)then
    inc(x1);
end;                    

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:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

var meineTreffer: array of Integer;
   def_a, def_b, def_c, def_d, def_e, def_f: String;
   Treffer: Integer; //Ändert sich von Zeile zu Zeile;
   Zeile: String;
   i: Integer; //i = Zeilenläufer
begin;
 //Hier setzen wir die Länge des Arrays ersteinmal auf 0
 setlength(meineTreffer, 0);
 
 //Nun auf die Anzahl der Zeilen des Memos
 setlength(meineTreffer, meinMemo.Lines.Count);

 //Überschreiben der Trefferdefinitionen
 def_a:= edit_a.text;
 def_b:= edit_b.text;
 def_c:= edit_c.text;
 //...
 def_f:= edit_f.text;

 //Treffer auf 0 setzen
 Treffer:= 0;

 //Jetzt durchlaufen wir die Zeilen
 for i:= 0 to meinMemo.Lines.Count-1 do
 begin
  //Wir überschreiben (unnötigerweise) die MemoZeile in die Variable Zeile
  Zeile:= meinMemo.Lines[i];
 
  //Hier könnte noch eine Prüfung rein, ob die Länge der Zeile zulässig (> 0) ist
  //Machen wir doch direkt
  if length(Zeile) <= 0 then
  begin
   //meineTreffer schreiben mit 0, da Zeile leer ist und somit bedeutungslos
   meineTreffer[i]:= 0;
   continue; //und die nächste Zeile ranholen, ohne nachfolgenden Code auszuführen
  end;
 
  //Und nun korrekterweise mit pos() abfragen
  if pos(def_a, Zeile) then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);

  if pos(def_b, Zeile) then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);

  //...
  if pos(def_f, Zeile) then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);


  //Überschreiben der Treffer in die Trefferliste
  meineTreffer[i]:= Treffer;
  
  Treffer:= 0;
 end;

 //Glückwunsch!
 //An dieser Position wurden alle deine Zeilen abgearbeitet und auf Treffer überprüft.

 //Zur Ausgabe:
 //Einfach über deine Trefferliste meineTreffer eine Schleifen laufen lassen und den Wert ausgeben, der dahintersteht.
 for i:= low(meineTreffer) to high(meineTreffer) do
 begin
  //Memo leeren
  meinMemo.lines.clear;
  //Ausgabe
  meinMemo.lines.add('Zeile ' + inttostr(i+1) + ': ' + IntToStr(meineTreffer[i]) + ' Treffer');

  //Warum i+1 bei der Zeile?
  //Nun, du beginnst die Zeilen bei 1 zu zählen, Delphi bei 0 ;-)
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

//Und nun korrekterweise mit pos() abfragen
  if <span style="color: orange">pos(def_a, Zeile)</span> then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);

  if <span style="color: orange">pos(def_b, Zeile)</span> then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);

  //...
  if <span style="color: orange">pos(def_f, Zeile)</span> then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);                    

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:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:

procedure TForm2.Button1Click(Sender: TObject);
var meineTreffer: array of Integer;
   def_a, def_b, def_c, def_d, def_e, def_f: String;
   Treffer: Integer; //Ändert sich von Zeile zu Zeile;
   Zeile: String;
   i: Integer; //i = Zeilenläufer
begin
 //Hier setzen wir die Länge des Arrays ersteinmal auf 0
 setlength(meineTreffer, 0);

 //Nun auf die Anzahl der Zeilen des Memos
 setlength(meineTreffer, Memo1.Lines.Count);

 //Überschreiben der Trefferdefinitionen
 def_a:= edit1.text;
 def_b:= edit2.text;
 def_c:= edit3.text;
 def_d:= edit4.text;
 def_e:= edit5.text;
 def_f:= edit6.text;

 //Treffer auf 0 setzen
 Treffer:= 0;

 //Jetzt durchlaufen wir die Zeilen
 for i:= 0 to Memo1.Lines.Count-1 do
 begin
  //Wir überschreiben (unnötigerweise) die MemoZeile in die Variable Zeile
  Zeile:= Memo1.Lines[i];

  //Hier könnte noch eine Prüfung rein, ob die Länge der Zeile zulässig (> 0) ist
  //Machen wir doch direkt
  if length(Zeile) <= 0 then
  begin
   //meineTreffer schreiben mit 0, da Zeile leer ist und somit bedeutungslos
   meineTreffer[i]:= 0;
   continue; //und die nächste Zeile ranholen, ohne nachfolgenden Code auszuführen
  end;

  //Und nun korrekterweise mit pos() abfragen
  if pos(def_a, Zeile) > 0 then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);

  if pos(def_b, Zeile) > 0 then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);

  if pos(def_c, Zeile) > 0 then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);

  if pos(def_d, Zeile) > 0 then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);

  if pos(def_e, Zeile) > 0 then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);

  if pos(def_f, Zeile) > 0 then
   //Kommt vor -> Treffer erhöhen
   inc(Treffer);


  //Überschreiben der Treffer in die Trefferliste
  meineTreffer[i]:= Treffer;

  Treffer:= 0;
 end;

 //Glückwunsch!
 //An dieser Position wurden alle deine Zeilen abgearbeitet und auf Treffer überprüft.

 //Zur Ausgabe:
 //Einfach über deine Trefferliste meineTreffer eine Schleifen laufen lassen und den Wert ausgeben, der dahintersteht.
 for i:= low(meineTreffer) to high(meineTreffer) do
 begin
  //Memo leeren
  Memo2.lines.clear;
  //Ausgabe
  Memo2.lines.add('Zeile ' + inttostr(i+1) + ': ' + IntToStr(meineTreffer[i]) + ' Treffer');

  //Warum i+1 bei der Zeile?
  //Nun, du beginnst die Zeilen bei 1 zu zählen, Delphi bei 0 ;-)
 end;
end;
end.                    

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

//Glückwunsch!
 //An dieser Position wurden alle deine Zeilen abgearbeitet und auf Treffer überprüft.

 //Zur Ausgabe:
 //Einfach über deine Trefferliste meineTreffer eine Schleifen laufen lassen und den Wert ausgeben, der dahintersteht.
 for i:= low(meineTreffer) to high(meineTreffer) do
 begin
  //Memo leeren
  Memo2.lines.clear;
  //Ausgabe
  Memo2.lines.add('Zeile ' + inttostr(i+1) + ': ' + IntToStr(meineTreffer[i]) + ' Treffer');

  //Warum i+1 bei der Zeile?
  //Nun, du beginnst die Zeilen bei 1 zu zählen, Delphi bei 0 ;-)
 end;                    

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:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

function checkVorkommen(Zeile, Zahl: String): Boolean;
var _pos: Integer; //Hier speichern wir die Position unseres Fundes
    _len: Integer; //Länge der Zeile (in Zeichen)
begin;
 try
  //Rückgabe undefiniert (false)
  result:= false;
  
  _pos:= pos(Zahl, Zeile);
  _len:= length(Zeile);

 case _pos of
  1:     begin
          //Zeichen an erster Stelle, nachfolgendes Zeichen muss Leerzeichen sein, verschoben und lenght(Zahl);
          //Natürlich darf Zeile[_pos+length(Zahl)] die length(Zeile) nicht übersteigen
          if (_pos+length(Zahl)) <= _len then
          begin 
           //Hier auf Leerzeichen prüfen
           if not (Zeile[_pos+length(Zahl)] = #32) then
            exit; //Wegwerfen, da ungültig
          end;
         end;
  else
  begin
   //Und hier der Spezialfall: Mitten in der Zeichenkette

   if _pos-1 < 1 then
    exit; //String[0] geht nicht

   if _pos = _len then
   begin
    //hier müssen wir nur einen Schritt nach "links" gehen und schon muss da ein Leerzeichen sein
    if Zeile[_pos-1] <> #32 then
     exit; //Doch keins -> Abbruch
   end;

   if _pos+length(Zahl) <= _len then
   begin
    //Hier schießen wir über kein Ziel hinaus
    if (Zeile[_pos-1] <> #32) or
       (Zeile[_pos+length(Zahl)] <> #32) then
     exit; //Mittendrin, aber links und rechts kein Leerzeichen
   end
   else
   begin
    //Hier nur davor
    if Zeile[_pos-1] <> #32 then
     exit;
   end;
  end;
 end;
  

  //Verarbeitung erfolgreich
  result:= true;
 except
  on e: exception do
   messagebox(application.handle, pchar(e.message), pchar('Fehler'), MB_IconERROR);
 end;
end;                    

1:
2:

 if checkVorkommen(Zeile, def_a) then
 inc(Treffer);