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

for i:=1 TO Length(myString) DO
begin
  myChar := myString[i];
  if myChar in ['a','d','z']
  then ShowMessage('Is drin!');
end;					

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

IF POS('Peter',MyString) > 0 THEN
 BEGIN
  ShowMessage('Drin');
 END
ELSE IF ('Hans',MyString) > 0 THEN
 BEGIN
  ShowMessage('Auch drin)';
 END
ELSE
 BEGIN
  ShowMessage('Keiner drin');
 END;					

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

PROCEDURE namen_finden(namen : TStinglist,mystring : string);
 VAR
  i : integer; 
 BEGIN
   FOR i := 0 TO namen.Count-1 DO
    BEGIN
     IF POS(namen[i],mystring) >0 THEN
      BEGIN
        ShowMessage(namen[i]+' gefunden!')
      END;
     END;
END;