Hola
Para variar Egostar tiene razon, dejame una Maestro.
Lo normal en estas busquedas es usar un grid en donde van apareciendo los resultados de la misma.
Se puede hacer con un simple filtro asi:
Este programa busca el cliente.
Código Delphi
[-]
procedure TFBuscaCliente.Edit1Change(Sender: TObject);
var
Filtro : String;
begin
If (Edit1.Text <> '') then
begin
ATClientes.Filtered := False;
If CBFiltro.Text = 'Código' then Filtro := 'CodCliente Like '+Edit1.Text
else If CBFiltro.Text = 'Nombre' then Filtro := 'NombreCliente Like '''+ Edit1.Text + '*'''
else If CBFiltro.Text = 'Teléfono' then Filtro := 'Telefono Like '''+ Edit1.Text + '*''';
ATClientes.Filter := Filtro;
ATClientes.Filtered := True
end
else ATClientes.Filtered := False;
end;
ATClientes: query
CBFiltro: Combombox que busca el tipo de filtro.
Si lo analizas un poco veras a que se refiere Egostar y Yo.
Saludos