procedure TfrmAgregar.btnAceptarClick(Sender: TObject);
var
i:integer;
begin
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
frmInicio.lstPrecios.Items.Add (txtPreNuevo.text);
frmInicio.lstProductos.Items.Add (txtProdNuevo.text);
close;
end;
end;