Erro de Transação!!!

Caro amigo.

Estou desenvolvendo um sistema, na qual fiz varias SP no interbase e ao codificar a minha aplicação esta dando um erro na transação, dizendo que a transação esta ativa, segue abaixo o código e o erro que esta dando.

************************* ERRO *****************************
Project Project1.exe raised exception class EIBClientError with message ´Tansaction is active´. Process stopped. Use step or Run to Continue.
***********************************************************

************************* CODIGO ****************************
procedure TForm1.Button1Click(Sender: TObject);
begin
IBTransaction1.StartTransaction;
if not IBStoredProc1.Prepared then
IBStoredProc1.Prepare;
IBStoredProc1.ExecProc;
DBEdit1.Text:=IntToStr(IBStoredProc1.ParamBYName(´ID´).asInteger);
IBTransaction1.Commit;
end;

end.
*************************************************************
Lembrando que, estou usando o interbase 6 e o Delphi 7.

Ficarei Grato a quem me ajudar.

Obrigado,
Fernando Di Tomazzo