Serch w listbox

ok mam dzisiaj 2 problem mianowicie:

Mam list boxa i edita

Wiem jak zrobić szukanie względem poruwnanie czu edit1.text = listbox....

ale niech mi ktoś pomoże z tym jak zrobić że coś takiego
itemsy listboxa to
np
plik1.exe
plik2.txt
plik3.nrg
itp

i chce żeby po wpicaniu do edita .exe Znalazło mi wszystkie pliki z tym rozszerzeniem w tym listboxie i jeszcze jak wpiszę np plik1. To znajdzie mi wlist boxie wszystkie pliki o nazwie plik1 z dowolnym roszerzeniem.
Wiem że wiecie o co chodzi. Z góry dzięki
Proszę nie odsyłajcie mnie nigdzie sprawa jest bardzo ważna. HELP

Ten przykład robi to co chciałeś i wyświetla znalezione pliki w Memo:

var
    nazwa, rozszerzenie : string;
    i : integer;
begin
    nazwa := ChangeFileExt(Edit1.Text, '');
    rozszerzenie := ExtractFileExt(Edit1.Text);

    if (nazwa = '*') and (rozszerzenie = '.*') then begin
        for i := 0 to ComboBox1.Items.Count - 1 do begin
            Memo1.Lines.Add(ComboBox1.Items[i]);
        end;
    end
    else if (nazwa = '*') and (rozszerzenie <> '.*') then begin
        for i := 0 to ComboBox1.Items.Count - 1 do begin
            if ExtractFileExt(ComboBox1.Items[i]) = rozszerzenie then
                Memo1.Lines.Add(ComboBox1.Items[i]);
        end;
    end
    else if (nazwa <> '*') and (rozszerzenie = '.*') then begin
        for i := 0 to ComboBox1.Items.Count - 1 do begin
            if ChangeFileExt(ComboBox1.Items[i], '') = nazwa then
                Memo1.Lines.Add(ComboBox1.Items[i]);
        end;
    end
    else begin
        for i := 0 to ComboBox1.Items.Count - 1 do begin
            if ComboBox1.Items[i] = Edit1.Text then
                Memo1.Lines.Add(ComboBox1.Items[i]);
        end;
    end;
end;