with ADOQuery1 do
 begin
   Close;
   SQL.Clear;
   SQL.Add('exec add_date');
   SQL.Add('@date='+FD2SQL(<your_date>));
   try
    ExecSQL;
   except
   end;
 end;

function FD2SQL(ADateEdit : TDateTime) : string;
var Year, Month, Day : word;
    s : string;
begin
  if ADateEdit =  0 
  then Result:='NULL'
  else begin
    DecodeDate(ADateEdit, Year, Month, Day);
    s:='';
    s:=s+IntToStr(Year);
    if Month <  10  then s:=s+'0';
    s:=s+IntToStr(Month);
    if Day <  10  then s:=s+'0';
    s:=s+IntToStr(Day);
    s:=s+' 00:00:00';
    Result:=chr($ 27 )+s+chr($ 27 );
  end;
end;