Fórum Transaction not assigned #345796

Estou com um problema quando vou gravar o segundo registro
uso Delphi7/dbexpress/firebird 2.0

Estou usando StoreProcedure.
Inclusao ok
Alteração ok primeira.
quando altero outro registro e mando gravar retorna um erro ´Projet LEILAO.exe raised exception class Exception with message ´Transaction not assigned.´
minha rotina

procedure TDM.Comit;
begin
sqlServidor.Commit(Transc);
end;

procedure TDM.Rollback;
begin
sqlServidor.Rollback(Transc);
RAISE Exception.Create(´PAU NA GRAVAÇÃO´);
end;

procedure TDM.Start;
begin
Transc.IsolationLevel :=xilREADCOMMITTED;
Transc.TransactionID := StrToInt(IDTransaction);
sqlServidor.StartTransaction(Transc);
end;

procedure TDM.cdsBancoClienteBeforePost(DataSet: TDataSet);
begin
Start;
try
with spBancoIU do
begin
Params[0].AsInteger:=cdsBancoClienteID_BANCO.AsInteger;
Params[1].AsInteger:=cdsBancoClienteID_CLIENTE.AsInteger;
Params[2].AsInteger:=cdsBancoClienteCDB_ID_BANCO.AsInteger;
Params[3].AsInteger:=cdsBancoClienteCDB_ID_CIDADE.AsInteger;
Params[4].AsString:=cdsBancoClienteCDB_CONTA.AsString;
Params[5].AsString:=cdsBancoClienteCDB_CONVENIO.AsString;
Params[6].AsString:=cdsBancoClienteCDB_AGENCIA.AsString;
Params[7].AsString:=cdsBancoClienteCDB_OBSERVACAO.AsString;
ExecProc;
Comit;
IF Params[8].AsInteger <> 0 THEN
cdsBancoClienteID_BANCO.AsInteger:=Params[8].AsInteger;
end;
except
Rollback;
end;
end;
Alguem sabe me dizer porque acontece isso