[marcoszorrilla]

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
  nCont:Integer;
  begin
     for nCont:=0 to listbox1.Items.Count -1 do
     begin
       if MiTabla.FindKey(listbox1.Items[nCont]) then
       ShowMessage('Es un determinante');
     end;
  
  end;

Esto es una pequeña idea, tendrás que ir desarrollándola.

Un Saludo.