Passagem de parametros para transacoes sql

Caros amigos,

tenho o seguinte problema e gostaria de uma dica de como resolve-lo:

A transação a baixo esta perfeita, funcionando no SQl perfeitamente, mas gostaria de saber como faço para passar os parametros para ela a partir do Delphi.

Vejam que em determinado momento, terei que passar para dentro de um while a lista de itens do pedido.

----------------------------------------------------------------------------------------

begin tran -- grava cabecalho da venda
DECLARE
@pedido int

 insert into t_vendas (nrven_v,cdcli_v)
 select (select max(nrven_v)+1 from t_vendas), 2 -- estou inserindo aqui informações para poucos campos,
 -- apenas como exemplo

 set @pedido = (select nrven_v from t_vendas where autocod = @@identity)

 begin tran -- grava itens da venda

 declare @count int

 set @count=0 -- aqui criei este contado apenas para testar o funcionamento do while

 while @count < 10500

 BEGIN
 insert into t_itsven (nrven_iv,emisven_iv,cditem_iv,deitem_iv,qtdesol_iv,precven_iv,precpra_iv,perdes_iv)
 values (@pedido,GETDATE(),@COUNT,'AAAA',1,1,1,0) --- informei valores quaisquer. Passarei por parametros
 -- por dentro do delphi, so nao sei ainda como.

	SET @COUNT = @COUNT+1
 END

 IF @@ERROR<>0

	ROLLBACK -- grava itens da venda
 ELSE
	COMMIT -- grava itens da venda

IF @@ERROR<>0
ROLLBACK -- grava cabecalho da venda
ELSE
COMMIT -- grava cabecalho da venda
--------------------------------------------------------

Desde já muito obrigado!!!