Buscar elemento en listbox

[mblascog]

Buenas,
Estoy intentando encontrar la manera que según el contenido de un edit.txt se posicione el cursor en un listbox.
He hecho lo siguiente:

Código Delphi [-]
procedure Tpform.buscaChange(Sender: TObject);
begin
  if Lista.Items.IndexOf(busca.text) > 0 then
    Lista.ItemIndex := Lista.Items.IndexOf(busca.text);
end;

Pero este código posiciona el cursor siempre que la coincidencia sea exacta, y a mi me gustaría que se posicionara cuando coincida el inicio del elemento del listbox, es dir, si en el edit.txt escribo 'ab' se posicione al primer elemento que empieze por ab.
Estoy leyendo que no es posible. Si no es posible, hay algún componente que lo permita?

Gracias