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