Delphi - Como puedo buscar un item en un checklistbox

Hola mi pregunta es facill. teniendo un checklistbox una caja de texto y un boton
y yo haya cargado en el checlistbox los siguiente items
- lapiz
-taza
-lapicera
-cigarrillos
ahora la pregunta
yo escribo en la caja de texto.. por ejm. taza
y aprieto el boton
deseo que busque en el checklistbox. la palabra taza.. que vaya comprando con los items. y si existe uno en la lista
haga una determinada tarea.. y sni no lo encontro..muestre un mensaje

buebno espero que me hayan entendido.. desde ya graciassssssss

procedure TForm1.Button1Click(Sender: TObject);
var
p: integer;
begin
p := CheckListBox1.Items.IndexOf(Edit1.Text);
if p = 0 then
ShowMessage('No encontrado')
else begin
// Realizas la accion que deseas. La variable "p" tiene
// la posición del elemento en la lista (con base 0).
// Por ejemplo, invertimos el estado de la casilla:
CheckListBox1.Checked[p] := not CheckListBox1.Checked[p];
end;
end;

Ernesto D'Spirito
[email protected]
http://www.latiumsoftware.com/es