busqueda dentro de en un listbox

[[Caral]]

Hola Max_E
Asi:

Código Delphi [-]
procedure TFBuscaNombre.Edit1Change(Sender: TObject);
var   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ATNombres.Filtered := False;
      If CBFiltro.Text = 'Nombre' then Filtro := 'Nombre Like '''+Edit1.Text + '*'''
         else If CBFiltro.Text = 'Apellido' then Filtro := 'Apellido Like '''+ Edit1.Text + '*'''
      ATNombres.Filter := Filtro;
      ATNombres.Filtered := True
   end
   else ATNombres.Filtered := False;
end;

CBFiltro es un combobox, en donde indico si es por nombre o apellido la busqueda, con solo poner la primera letra va filtrando hasta encontrar lo requerido.
Saludos