ausgabe einer suche ohne doppelungen in Listbox

[theNick]

hallo,
ich hab schon nen bisschen rumgesucht konnte aber noch nichts dazu finden.

Ich will eine suche machen, welche in der listbox ausgegeben werden soll.
Allerdings sollen doppelte Namen/... nicht vorkommen

Da ich aber nicht weiß wie man die einzelnen items anspricht und sie löscht komme ich net wirklich weiter.
Hier mein code:

Delphi-Quellcode:

   if RadioButtonjahrgang3.checked = true THEN
      BEGIN
        if StrToInt(Editsuchen3.text) = Schuelerfeld[i].jahrgang THEN // i ist die zähl variable, der das ganze arry (1..1000) durchgeht
          begin
            a := a+1;
            ListBox3.Items.add(IntToStr(Schuelerfeld[i].jahrgang));
          end
        else
          if a = 0 THEN
              StatusBar.Panels[0].text := 'Kein Eintrag gefunden!'
          else
            begin
              if a = 1 THEN
                  StatusBar.Panels[0].text := 'Es wurde ' + IntToStr(a) + ' Eintrag gefunden'
              else
                StatusBar.Panels[0].text:= 'Es wurden ' + IntToStr(a) + ' Einträge gefunden';
            END
      END;