Consulta Select con if

[giantonti]

buen dia foro. estoy haciendo una aplicacion firemonkey con adoquiery, quiero hacer esta consulta antes de abrir un from con showmodal, pero algo esta mal porque no funciona, es decir que me abre el from y me muestra informacion en el grid.
lo que quiero hacer es: un from con un campo edit1.text y el valor que coloque alli debe buscarlo en una tabla y si lo consigue abre el showmodal de lo contrario que salga un mensaje (no lo encontre) y que no habra el fromshowmodal. adjunto sentencia que estoy colocando:

Código Delphi [-]
adoQuery3.Close;
      adoQuery3.Sql.Clear;
      adoQuery3.Sql.Add('Select * From mov');
      adoQuery3.Sql.Add('where cod_cli = '+ADOQuery1rif.asstring+'');
      begin
      While Not Adoquery3.Eof do
      ShowMessage('No se ha incontrado ningun articulo relacionado con el Cliente');
      adoQuery3.Open;
      begin
      Application.CreateForm(TFormSelequipo , FormSelequipo);
      if FormSelequipo.ShowModal = mrOk then
      begin
      ADOQuery1equipo.asstring := ADOQuery3articulo.AsString;
      ADOQuery1serial.AsString := ADOQuery3serial.AsString;
      end
      else
      ShowMessage('No se ha incontrado ningun articulo relacionado con el Cliente');
      end;
      end;
      end;

Agradezco su ayuda