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
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; 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;
ZRegistro.SQL.Clear;
ZRegistro.SQL.Text:= '//consulta sql';
ZRegistro.execsql;
end; end;