procedure TFBuscaPaciente.query();
begin
with UniQuery1, sql do
begin
close;
clear;
begin
if RadioGroup2.ItemIndex = 0 then
Add(' SELECT * FROM paciente where upper(nombre) like upper('+#39+'%'+edit1.text+'%'+#39+')')
else
Add(' SELECT * FROM paciente where upper(telefono) like upper('+#39+'%'+edit1.text+'%'+#39+')');
end;
open;
end;
end;