procedure TfrmBuscar.edtBuscarKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if not dxgbuscar.DataSource.dataset.locate('CampoABuscar',edtBuscar.Text,[loCaseInsensitive, loPartialKey]) then begin
end; if key=VK_Return then dxgbuscar.setfocus;
end;