Problema de comprobacion de datos existentes

[[eduarcol]]

porq despues que compruebas no das opciones, prueba esto

Código Delphi [-]
procedure TFTramite.BitBtn1Click(Sender: TObject);
begin
  if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
     //Valida que los campos esten vacios
     If (dbArea.Text = '') OR
        (dbModal.Text = '') OR
        (dbTramite.Text = '') OR
        (dbRubro.Text = '') OR
        (dbfechacre.Text = '') OR
        (dbRespon.Text = '') OR
        (dbfechaent.Text = '') OR
        (DBComboBox1.Text = '') OR
        (dbStatus.Text = '') then
     begin
          MessageDlg('Hay Casillas sin Llenar Por Favor Llenarlo',mtError,[mbOK],0);
          Exit;
     end; //Valida que este espacios en blanco
     with ZQuery1 do
     begin
         Close;
         ParamByName('tipo').Value:= dbModal.Text;
         ParamByName('tramite').Value:= dbTramite.Text;
         Open;
         if RecordCount > 0 then
         begin
           showmessage('Tramite ya existe');
           Exit;
         end;
     end; //with zquery

     ZRegistro.SQL.Clear;
     ZRegistro.SQL.Text:= '//consulta sql';
     ZRegistro.execsql;
  end; //Pregunat si desea guardar
end; //Fin del procedure