Fórum Deletar em cascata no Delphi 5 e banco Firebird 2.0? #328783

procedure TFExcluirAssoc.BtExcluirClick(Sender: TObject);
var
ok: boolean;
begin
if trim(e1.text)=´´ then begin
showmessage(´Selecione a ID do Associado que vc deseja excluir´);
end else
if application.messagebox(Pchar(´Deseja Excluir este Lançamento:´ + #13+ dm.ibq1.FieldByName(´Matricula´).AsString +´  ´+ 13+ dm.ibq1.FieldByName(´associado´).AsString), Pchar(´Excluir Dados´+Self.Caption), MB_ICONQUESTION
+ MB_YESNO) = IDYES then begin
  try //começo co except unie o laço
    with dm.ibq1 do
      begin
        close;
        sql.clear;
        sql.add(´delete from sind2´); //codigo SQL para deletar linha
        sql.add(´where matricula = ´+quotedstr(e1.text)+´´);
        ExecSQL;
      end;
  except
      application.MessageBox(´Erro na Exclusão! Tente Novamente!´,´Aviso´,mb_ok+mb_iconexclamation);
      ok:=false;
  end; // final do except
  if ok then
     begin
       dm.ibt2.Commit;  //comitar o lançamento
       dm.ibq1.open;
       sbar.SimpleText := ´Linha Excluída...´;
     end else begin
       dm.ibt2.Rollback;
       sbar.SimpleText := ´Abortado...´;
     end;
  end;
end;

alter table corrente
constraint fk_corrente_1 //fk_corrente_1 eh a FK
foreign key (matricula, associado)
references sind2(matricula, associado)
on delete CASCADE