فیلتر / جستجو کردن درون یک ListBox

سلام

خسته نباشید

چگونه می توانم یک کلمه را در یک listBox جستجو کنم؟

چگونه می توانم تمامی کلمه هایی که مثلا با «علی» آغاز میشوند را در یک listBox نشان دهم؟





ممنون

این کد شاید تا حدی بتونه کمکتون کنه اما اینکه بخواین در ListBox مثل یک Memo جستجو کنید فکر نمی کنم هم کار ممکنی باشه و هم عاقلانه.
درباره این کد هم خدمتتون عرض کتم که، یک Edit به همراه یک ListBox تو فرمتون قرار بدین و در OnChange اون Edit مورد نظر کد زیر رو بنویسید.

procedure TFrmSearch.EdSearchChange(Sender: TObject);
const
indexStart = -1;
var
search : array[0..128] of Char;
begin
StrPCopy(search, EdSearch.Text) ;
ListBox.ItemIndex := ListBox.Perform(LB_SELECTSTRING, indexStart, LongInt(@search)) ;
end;