Realizar búsquedas en un ListBox mediante un Edit

[Lester]

Este es mi código a ver qué es lo que hago mal que no me funciona...

Código Delphi [-]
function LowerCaseSensitive(LaPalabra: String): String;
  begin
   Result:=LowerCase(LaPalabra)
end;

Procedure Busqueda(PalabraBuscar : String);
var
 I : Integer;
begin
 PalabraBuscar := LowerCaseSensitive(PalabraBuscar);
  // busca
  for i:=0 to Form1.ListBox1.Items.Count - 1 do
    if Pos(PalabraBuscar, LowerCaseSensitive(Form1.ListBox1.Items[i])) > 0 then
      begin
        Form1.ListBox1.ItemIndex:=i;
        Exit;
      end;
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
 Busqueda(Edit1.Text);
end;