O código a seguir funciona apenas se digitar a string completa, gostaria de modificar o código para também focar no listbox quando parte do texto for digitado estilo autocomplete
procedure Tform1.Edit1Change(Sender: TObject);
var
i: Integer;
begin
i := ListBox1.Items.IndexOf(Edit1.Text);
if i>= 0 then
begin
ListBox1.ItemIndex:= ListBox1.Items.IndexOf(Edit1.Text);
end;
end;