Ajuda Iniciante

Quando clicar no botão Gravar executa o codigo abaixo, mas nao grava e aparece uma mensagem ´TRANSACTION IS ACTIVE´.
Uso o Interbase com os componentes (IBDatabase, IBTransaction)

Desde já agradeço.


Procedure TFrmCliente.BtnGravarClick(Sender: TObject);
Begin
aux := DBEdit1.text;
DM.TSBanco.StartTransaction;
if flag <> ´alterar´ then
begin
try
IBQuery1.Close;
IBQuery1.sql.clear;
IBQuery1.sql.add(´Insert into Cliente values(´´´+Edit1.Text+´´´,´´´+Edit2.Text+´´´,´´´+Edit3.Text+´´´,´´´+Edit4.Text+´´´,´´´+Edit5.Text+´´´)´);
IBQuery1.prepare;
IBQuery1.Open;
DM.TSBanco.commit;
except
showmessage(´Registro não foi Gravado´);
DM.TSBanco.rollback;
end;
end
else
begin
try
IBQuery1.Close;
IBQuery1.sql.clear;
IBquery1.sql.add(´update Cliente set Nome=´´´+Edit2.text+´´´,Endereco=´´´+Edit3.text+´´´,Numero=´´´+Edit4.text+´´´,Tipo=´´´+Edit5.text+´´´,Email=´´´+Edit6.text+´´´ where CodCli=´´´+Edit1.text+´´´´);
IBQuery1.prepare;
IBQuery1.Open;
DM.TSBanco.commit;
except
showmessage(´Registro não foi Gravado´);
DM.TSBanco.rollback;
end;
end;
BtnIncluir.Enabled := true;
BtnGravar.Enabled := false;
BtnConsultar.Enabled := true;
BtnAlterar.Enabled := false;
BtnExcluir.Enabled := false;
DBEdit1.Enabled := true;
IBQuery1.Close;
IBQuery1.sql.clear;
IBquery1.sql.add(´Select * from Cliente Order by CODCLI´);
IBQuery1.prepare;
IBQuery1.Open;
end;