Foros Club Delphi - comparar un texto de un listbox con un texto de un edit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - comparar un texto de un listbox con un texto de un edit (https://www.clubdelphi.com/foros/showthread.php?t=76014)

comparar un texto de un listbox con un texto de un edit

Código Delphi [-]procedure TfrmAgregar.btnAceptarClick(Sender: TObject);
var
i:integer;
begin
    //controlar que el producto no este cargado
    for i := 0 to frmInicio.lstProductos.Count - 1 do
      if frmInicio.lstProductos.items[i].text??? = txtPreNuevo.text then  QUIERO SABER SI LA PALABRA ESTA EN LA LISTA ENTONCES DIGO QUE YA ESTA CARGADA
         showmessage('El producto ya esta cargado')
         else begin
         //paso el producto y el precio nuevo al inicio
            frmInicio.lstPrecios.Items.Add  (txtPreNuevo.text);
            frmInicio.lstProductos.Items.Add (txtProdNuevo.text);
            close;
         end;
      end;

resuelto gracias

lo resolvi con lo siguiente:

Código Delphi [-]frmInicio.lstProductos.Items.IndexOf(txtProdNuevo.Text)=-1, si devuelve -1 es que no esta dentro del listbox