> sp.ParamByName('ADMIT_DATE').AsDate := d8Admit;

Try:

if d8Admit > 0 then
sp.ParamByName('ADMIT_DATE').AsDate := d8Admit
else
begin
//The first line above is only necessary if you don't typed the param
at design time
sp.ParamByName('ADMIT_DATE').DataType := ftDate;
sp.ParamByName('ADMIT_DATE').Clear;
end;





_______________________________________________________
Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao