Problema de comprobacion de datos existentes

[[enecumene]]

bueno estoy haciendo lo siguiente:

Código Delphi [-]
procedure TFTramite.BitBtn1Click(Sender: TObject);
begin
if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
begin
if (ZTramite.FieldByname('tramite_no').value = dbTramite.Text) and (ZTramite.FieldByname('tipo_tra').value = dbModal.Text) then
begin
  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');
      Abort;
    end;
  end;
end else begin
   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
     MessageDlg('Hay Casillas sin Llenar Por Favor Llenarlo',mtError,[mbOK],0)
   else
    begin
    ZRegistro.SQL.Clear;
    ZRegistro.SQL.Text:= '//consulta sql';
    ZRegistro.execsql;
   end;
end;
end;
end;

problema? no hace nada, ni inserta, ni me presenta el mensaje, ni un error, se queda igual..

Saludos.

[[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

[[enecumene]]

Gracias Eduarcol, lamentablemente no he podido probar tu sugerencia debido a un problema Acentos como en el hilo que abri hace 1 dia.

Saludos.

[[enecumene]]

Hola Eduarcol, ya pude probar tu sugerencia y debo decirte que me funciono de mil maravillas, lo probe con una base de datos en mi casa ya que no tiene problema de acentos, solo es en la oficina donde trabajo que tiene ese problema, me da la impresion que es la version del paquete que tiene instalado, pos mañana hare la prueba instalando la version que tengo en mi casa,

De nuevo muchas a todos que me echaron mano en esto.

Saludos.