[Страдалецъ]

Вот вам вариант с фильтром:

Код:

procedure TForm1.Edit3Change(Sender: TObject);
var
  i: Integer;
begin
 ListBox1.Items.BeginUpdate;
 ListBox1.Clear;
 for i := 0 to SrcList.Count - 1
 do if Copy(SrcList.Strings[i], 1, Length(Edit3.Text)) = Edit3.Text
    then ListBox1.Items.Add(SrcList.Strings[i]);
 ListBox1.Items.EndUpdate;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 SrcList := TStringList.Create;
 SrcList.Assign(ListBox1.Items);
end;