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

procedure TForm2.Selektieren;
var x,d:integer; suchname,:string; gesucht:boolean; kunde:Dat;
begin
  x:=0; //Startwert der zu durchsuchenden Einträge aus der Listbox
  d:=list_daten.items.count;  //Anzahl der Einträge in der Listbox
  suchname:=form3.edit_name.text;  //Zu suchendes Wort
  while d>x do //Solange es mehr Einträge gibt als den wo ich grad bin
    begin
      gesucht:=True;  //Da ich nach mehreren Kriterien suche hab ich das hier eingefügt, und jeweils bei den einzelnen Kriterien wird dann schon ausgesiebt.
      //formatieren der Daten, sodass ich ihm sagen kann wodrin er suchen soll. Also eintragen in meinen Record aus meinem Array (Der Array enthält halt einfach alle Daten ausm Record hintereinander gereiht, aus Speichergründen)            
      if form3.check_name.checked=True then //Wenn nach dem Kriterium Name gesucht werden soll
        begin
          If Kunde.Name=suchname then gesucht:=True //Kunde.Name ist ein Sting in meinem Record
            else gesucht:=False;
        end;
     if gesucht=false then begin list_daten.Items.Delete(x); d:=list_daten.Items.Count; end  //Wenn der nich gesucht is, aus Listbox löschen
     else inc(x); //wenn gesucht ist, nächsten Eintrag überprüfen
end;					

1:

If Kunde.Name=suchname then					

1:

If POS(suchname,Kunde.Name) >0 then gesucht:=True					

1:
2:

If Kunde.Name=suchname then gesucht:=True //Kunde.Name ist ein Sting in meinem Record          
  else gesucht:=False;					

1:
2:
3:

c:=pos(suchname,Kunde.name);
If c<>0 then gesucht:=True
else gesucht:=false;					

1:

gesucht := pos(suchname,Kunde.name) <> 0;