procedure TForm1.BitBTN1Click(Dender:TObject);
begin
With DataModule2.AdoQuery1 do
begin
close;
SQL.Clear;
SQL.Add ('Select * from cliente where id_cliente= :dato');
Parameters.ParamByName('dato').Value := StrToInt (DBEditDNI.Text);
open;
if Adoquery1.RecordCount > 0 then
HacerCambios()
else
ShowMessage('No existe ese DNI.');
end;
end;