busquedas con codigo delphi

[ContraVeneno]

Código Delphi [-]
procedure TfrmBuscar.edtBuscarKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if not dxgbuscar.DataSource.dataset.locate('CampoABuscar',edtBuscar.Text,[loCaseInsensitive, loPartialKey]) then begin
     //ShowMessage('No se encuentran registros');
   end; //fin if not
   if key=VK_Return then dxgbuscar.setfocus;
end;