guardando fecha interbase 6

[fixarg]

tengo el siguietne problema...
uso interbase 6 delphi 5
necesito guardar la fecha actual en una tabla master...
por lo cual utilizo un procedimiento almacenado, cuyo codigo es el siguiente

<DELPHI>
set TERM!!;
CREATE PROCEDURE anadir_voucher (tipo varchar(12), nombreP varchar(20), apellidoP varchar(20), extras varchar(30), npersonas integer, codigoreserva integer, aclaracion varchar(300), usuario integer,prestador integer, modificado varchar(1), fecha date )
RETURNS (VOUCHERKEY INTEGER)
AS
begin
VOUCHERKEY = gen_id(vouchers_voucherkey_gen, 1);
insert into vouchers(voucherkey, tipo,nombreP,apellidoP,extras,npersonas,codigoreserva,aclaracion,usuario,prestador,modificado,fecha) values(:VOUCHERKEY, :tipo,:nombreP, :apellidoP, :extras, :npersonas, :codigoreserva, :aclaracion, :usuario, restador, :modificado, :fecha); end;!!
set TERM ;!!
</DELPHI>


he probado varias combinaciones pero no logro nada...
solo hago que funcione si coloco

IBStoredProc1.Params.ParamValues['fecha']:='12/12/05';

por lo cual deduje que esto deberia funcionar

IBStoredProc1.Params.ParamValues['fecha']:=DatetoStr(date);

pero no!!... da error de conversión....
podrian darme una mano?