var
IdCliente: Integer;
begin
_DM.consulta1.SQL.Text:='SELECT * From clientes Where id_cliente=:miid';
if TryStrToInt(edit11.text, IdCliente) then
_DM.consulta1.ParamByName('miid').value:= IdCliente
else
_DM.consulta1.ParamByName('miid').value:= Null;
_DM.consulta1.ParamByName('miid').Clear; _DM.consulta1.open;
end;