BUsque con Locate

[silviodp]

Perdón me equivoqué con las etiquetas:

procedure TForm14.DBEdit2KeyPress(Sender: TObject; var Key: Char);
Var
 n,m,o,p:Variant;
begin
If Key=#13 Then
 begin
  ModuloDatos.TblPagos.Active:=True;
  ModuloDatos.TblFacturas.Active:=True;
  ModuloDatos.TblFacturas.Locate('NFactura',DBEDit2.Text,[]);
  n:=ModuloDatos.TblFacturas.FieldValues['NFactura'];
  m:=ModuloDatos.TblFacturas.FieldValues['Usuario'];
  o:=ModuloDatos.TblFacturas.FieldValues['Periodo'];
  p:=ModuloDatos.TblFacturas.FieldValues['Precio'];
  ModuloDatos.TblPagos.FieldValues['NFact']:=n;
  ModuloDatos.TblPagos.FieldValues['Usuario']:=m;
  ModuloDatos.TblPagos.FieldValues['Periodo']:=o;
  ModuloDatos.TblPagos.FieldValues['Importe']:=p;
  Confirmar.SetFocus;
 end;