[josi]

como se hacen las busquedas
de una appli temgp este codigo pero no me funciona
_________________________________________________________

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select * from DATOS where CODIGO = :buscar order by CODIGO');
  query1.ParamByName('buscar').Value:=(edit1.Text);
  query1.Open;
end;