69:
How do I encode data as ICalendar format

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content do
	begin
		with Components.Add('VCALENDAR') do
		begin
			Properties.Add('VERSION','2.1').Parameters.Add('UNICODE',TObject(AxICalendar1.toICalendar[TObject(True),EXICALENDARLib.PropertyTypeEnum.exPropertyTypeBoolean]));
			Properties.Add('TEXT','This is just a bit of text to be encoded.');
			Properties.Add('BINARY',TObject(AxICalendar1.toICalendar['This is just a bit of text to be encoded.',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeBinary]));
			with Components.Add('VEVENT') do
			begin
				Properties.Add('DTSTART','1/1/2001');
				Properties.Add('DTEND','1/2/2001 10:00:00 AM');
			end;
		end;
	end;
	OutputDebugString( Save() );
end
68:
How do I get the occurrences between giving start/end margins

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( 'AsArray: ' );
	OutputDebugString( get_RecurRange('DTSTART=19970310;FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3','1/1/2001','1/1/2002') );
	OutputDebugString( 'AsString: ' );
	OutputDebugString( get_RecurRangeAsString('DTSTART=19970310;FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3','1/1/2001','1/1/2002') );
end
67:
How do I get the value of specified part in the recurrence expression

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( 'FREQ: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurFREQ) );
	OutputDebugString( 'DTSTART: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurDTSTART) );
	OutputDebugString( 'UNTIL: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurUNTIL) );
	OutputDebugString( 'COUNT: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurCOUNT) );
	OutputDebugString( 'INTERVAL: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurINTERVAL) );
	OutputDebugString( 'WKST: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurWKST) );
	OutputDebugString( 'BYDAY: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurBYDAY) );
	OutputDebugString( 'BYMONTHDAY: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurBYMONTHDAY) );
	OutputDebugString( 'BYYEARDAY: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurBYYEARDAY) );
	OutputDebugString( 'BYWEEKNO: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurBYWEEKNO) );
	OutputDebugString( 'BYMONTH: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurBYMONTH) );
	OutputDebugString( 'BYSETPOS: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurBYSETPOS) );
	OutputDebugString( 'BYHOUR: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurBYHOUR) );
	OutputDebugString( 'BYMINUTE: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurBYMINUTE) );
	OutputDebugString( 'BYSECOND: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',EXICALENDARLib.RecurPartEnum.exRecurBYSECOND) );
end
66:
How do I check if the recurrence expression is syntactically correct (method 2)

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( '1.A) SyntaxError: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=20151205;FREQ=DAILY;BYDAY=MO',EXICALENDARLib.RecurPartEnum.exRecurSyntaxError) );
	OutputDebugString( '1.B) SyntaxErrorInfo: ' );
	OutputDebugString( get_RecurPartValue('DTSTART=20151205;FREQ=DAILY;BYDAY=MO',EXICALENDARLib.RecurPartEnum.exRecurSyntaxErrorInfo) );
	OutputDebugString( '2.A) SyntaxError: ' );
	OutputDebugString( get_RecurPartValue('FREQ=DAILY;BYDAY=MO',EXICALENDARLib.RecurPartEnum.exRecurSyntaxError) );
	OutputDebugString( '2.B) SyntaxErrorInfo: ' );
	OutputDebugString( get_RecurPartValue('FREQ=DAILY;BYDAY=MO',EXICALENDARLib.RecurPartEnum.exRecurSyntaxErrorInfo) );
end
65:
How do I check if the recurrence expression is syntactically correct (method 1)

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( '1. If negative, the expression is incorrect' );
	OutputDebugString( get_RecurCheck('DTSTART=20151205;FREQ=DAILY;BYDAY=MO','12/5/2015') );
	OutputDebugString( '2. If negative, the expression is incorrect' );
	OutputDebugString( get_RecurCheck('junk','1/1/2001') );
end
64:
How do I check if a specified date match the giving recurrence

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( '12/5/2015' );
	OutputDebugString( get_RecurCheck('DTSTART=20151205;FREQ=DAILY;BYDAY=MO','12/5/2015') );
	OutputDebugString( '12/7/2015' );
	OutputDebugString( get_RecurCheck('DTSTART=20151205;FREQ=DAILY;BYDAY=MO','12/7/2015') );
end
63:
Recur: The 2nd to last weekday of the month

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970929;FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2',TObject(12)) );
end
62:
Recur: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970904;FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3',TObject(12)) );
end
61:
Recur: The last work day of the month

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970805;FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1',TObject(12)) );
end
60:
Recur: An example where the days generated makes a difference because of WKST (Sample 2)

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU',TObject(12)) );
end
59:
Recur: An example where the days generated makes a difference because of WKST (Sample 1)

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970805T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=MO',TObject(12)) );
end
58:
Recur: Every 20 minutes from 9:00 AM to 4:40 PM every day

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=DAILY;BYHOUR=9,10,11,12,13,14,15,16;BYMINUTE=0,20,40',TObject(12)) );
end
57:
Recur: Every hour and a half for 4 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=MINUTELY;INTERVAL=90;COUNT=4',TObject(12)) );
end
56:
Recur: Every 15 minutes for 6 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=MINUTELY;INTERVAL=15;COUNT=6',TObject(12)) );
end
55:
Recur: Every 3 hours from 9:00 AM to 5:00 PM on a specific day

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=HOURLY;INTERVAL=3;UNTIL=19970902T170000Z',TObject(12)) );
end
54:
Recur: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19961105T090000;FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8',TObject(12)) );
end
53:
Recur: The first Saturday that follows the first Sunday of the month, forever

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970913T090000;FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13',TObject(12)) );
end
52:
Recur: Every Friday the 13th, forever

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13',TObject(12)) );
end
51:
Recur: Every Thursday, but only during June, July, and August, forever

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970605T090000;FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8',TObject(12)) );
end
50:
Recur: Every Thursday in March, forever

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970313T090000;FREQ=YEARLY;BYMONTH=3;BYDAY=TH',TObject(12)) );
end
49:
Recur: Monday of week number 20 (where the default start of the week is Monday), forever

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970512T090000;FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO',TObject(12)) );
end
48:
Recur: Every 20th Monday of the year, forever

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970101T090000;FREQ=YEARLY;BYDAY=20MO',TObject(12)) );
end
47:
Recur: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970101T090000;FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200',TObject(12)) );
end
46:
Recur: Every other year on January, February, and March for 10 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970310T090000;FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3',TObject(12)) );
end
45:
Recur: Yearly in June and July for 10 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970610T090000;FREQ=YEARLY;COUNT=10;BYMONTH=6,7',TObject(12)) );
end
44:
Recur: Every Tuesday, every other month

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=MONTHLY;INTERVAL=2;BYDAY=TU',TObject(12)) );
end
43:
Recur: Every 18 months on the 10th thru 15th of the month for 10 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970910T090000;FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15',TObject(12)) );
end
42:
Recur: Monthly on the first and last day of the month for 10 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970930T090000;FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1',TObject(12)) );
end
41:
Recur: Monthly on the 2nd and 15th of the month for 10 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15',TObject(12)) );
end
40:
Recur: Monthly on the third to the last day of the month, forever

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970928T090000;FREQ=MONTHLY;BYMONTHDAY=-3',TObject(12)) );
end
39:
Recur: Monthly on the second to last Monday of the month for 6 months

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970922T090000;FREQ=MONTHLY;COUNT=6;BYDAY=-2MO',TObject(12)) );
end
38:
Recur: Every other month on the 1st and last Sunday of the month for 10 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970907T090000;FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU',TObject(12)) );
end
37:
Recur: Monthly on the 1st Friday until December 24, 1997

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970905T090000;FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR',TObject(12)) );
end
36:
Recur: Monthly on the 1st Friday for ten occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970905T090000;FREQ=MONTHLY;COUNT=10;BYDAY=1FR',TObject(12)) );
end
35:
Recur: Every other week on Tuesday and Thursday, for 8 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH',TObject(12)) );
end
34:
Recur: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR',TObject(12)) );
end
33:
Recur: Weekly on Tuesday and Thursday for 5 weeks

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH',TObject(12)) );
end
32:
Recur: Weekly on Tuesday and Thursday for 5 weeks

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH',TObject(12)) );
end
31:
Recur: Every other day - forever

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=DAILY;INTERVAL=2',TObject(12)) );
end
30:
Recur: Daily until December 24, 1997

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=DAILY;UNTIL=19971224T000000Z',TObject(12)) );
end
29:
Recur: Daily for 10 occurrences

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( get_RecurAllAsString('DTSTART=19970902T090000;FREQ=DAILY;COUNT=10',TObject(12)) );
end
28:
How can I add a property of UTC offset type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('UTCOffset','+0100');
	end;
	OutputDebugString( Save() );
end
27:
How can I add a property of URI type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('URI','http://www.exontrol.com');
	end;
	OutputDebugString( Save() );
end
26:
How can I add a property of time type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Time1','12:00:00 PM');
		Properties.Add('Time2',TObject(AxICalendar1.toICalendar[TObject(0.5),EXICALENDARLib.PropertyTypeEnum.exPropertyTypeTime]));
		with Properties.Add('Time3',Nil) do
		begin
			Value := TObject(0.5);
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeTime;
		end;
	end;
	OutputDebugString( Save() );
end
25:
How can I add a property of text/string type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Text1','A1');
		Properties.Add('Text2',TObject(AxICalendar1.toICalendar['A1',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeText]));
		with Properties.Add('Text3',Nil) do
		begin
			Value := 'A1';
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeText;
		end;
	end;
	OutputDebugString( Save() );
end
24:
How can I find properties of recurence type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Recur','FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=SA,SU');
	end;
	p := Root.Properties.Item['Recur'];
	i := get_toICalendar(p.Value,p.GuessType);
	OutputDebugString( 'icalendar:' );
	OutputDebugString( i );
	OutputDebugString( 'all:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'') );
	OutputDebugString( 'FREQ:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'FREQ') );
	OutputDebugString( 'UNTIL:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'UNTIL') );
	OutputDebugString( 'COUNT:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'COUNT') );
	OutputDebugString( 'INTERVAL:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'INTERVAL') );
	OutputDebugString( 'BYSECOND:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'BYSECOND') );
	OutputDebugString( 'BYMINUTE:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'BYMINUTE') );
	OutputDebugString( 'BYHOUR:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'BYHOUR') );
	OutputDebugString( 'BYDAY:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'BYDAY') );
	OutputDebugString( 'BYMONTHDAY:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'BYMONTHDAY') );
	OutputDebugString( 'BYYEARDAY:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'BYYEARDAY') );
	OutputDebugString( 'BYWEEKNO:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'BYWEEKNO') );
	OutputDebugString( 'BYMONTH:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'BYMONTH') );
	OutputDebugString( 'BYSETPOS:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'BYSETPOS') );
	OutputDebugString( 'WKST:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'WKST') );
end
23:
How can I add a property of recurrence type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Recur','FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU');
	end;
	OutputDebugString( Save() );
end
22:
How can I find the duration in weeks, days, hours, minutes, seconds from a property of duration type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Period',TObject(AxICalendar1.valuesToICalendar['Start=#1/1/2001#;Duration=1',EXICALENDARLib.PropertyTypeEnum.exPropertyTypePeriod]));
	end;
	p := Root.Properties.Item['Period'];
	i := get_toICalendar(p.Value,p.GuessType);
	OutputDebugString( 'icalendar:' );
	OutputDebugString( i );
	OutputDebugString( 'all:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'') );
	OutputDebugString( 'start:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'Start') );
	OutputDebugString( 'end:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'End') );
	OutputDebugString( 'duration:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'Duration') );
	OutputDebugString( 'weeks:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'W') );
	OutputDebugString( 'days:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'D') );
	OutputDebugString( 'hour:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'H') );
	OutputDebugString( 'min:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'M') );
	OutputDebugString( 'sec:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'S') );
end
21:
How can I add a property of period type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Period1',TObject(AxICalendar1.valuesToICalendar['Start=#1/1/2001#;Duration=1',EXICALENDARLib.PropertyTypeEnum.exPropertyTypePeriod]));
		Properties.Add('Period2',TObject(AxICalendar1.valuesToICalendar['Start=#1/1/2001#;End=#1/2/2001#',EXICALENDARLib.PropertyTypeEnum.exPropertyTypePeriod]));
		Properties.Add('Period3',TObject(AxICalendar1.valuesToICalendar['Duration=1;End=#1/2/2001#',EXICALENDARLib.PropertyTypeEnum.exPropertyTypePeriod]));
	end;
	OutputDebugString( Save() );
end
20:
How can I add a property of integer type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Integer1',TObject(1));
		Properties.Add('Integer2',TObject(AxICalendar1.toICalendar[TObject(1),EXICALENDARLib.PropertyTypeEnum.exPropertyTypeInteger]));
		with Properties.Add('Integer3',Nil) do
		begin
			Value := TObject(1);
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeInteger;
		end;
	end;
	OutputDebugString( Save() );
end
19:
How can I add a property of float type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Float1',TObject(1.5));
		Properties.Add('Float2',TObject(AxICalendar1.toICalendar[TObject(1.5),EXICALENDARLib.PropertyTypeEnum.exPropertyTypeFloat]));
		with Properties.Add('Float3',Nil) do
		begin
			Value := TObject(1.5);
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeFloat;
		end;
	end;
	OutputDebugString( Save() );
end
18:
How do I get the type of the property

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Duration1',TObject(AxICalendar1.toICalendar[TObject(2.5),EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDuration]));
		with Properties.Add('Duration2',Nil) do
		begin
			Value := TObject(2.5);
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDuration;
		end;
	end;
	with Root.Properties.Item['Duration1'] do
	begin
		OutputDebugString( Name );
		OutputDebugString( 'Guess' );
		OutputDebugString( GuessType );
		OutputDebugString( Name );
		OutputDebugString( 'Type' );
		OutputDebugString( Type );
	end;
	with Root.Properties.Item['Duration2'] do
	begin
		OutputDebugString( Name );
		OutputDebugString( 'Guess' );
		OutputDebugString( GuessType );
		OutputDebugString( Name );
		OutputDebugString( 'Type' );
		OutputDebugString( Type );
	end;
end
17:
How can I get values of the duration iCalendar format

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	OutputDebugString( 'all:' );
	OutputDebugString( get_valuesFromICalendar('P1D',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDuration,'') );
	OutputDebugString( 'duration:' );
	OutputDebugString( get_valuesFromICalendar('P1D',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDuration,'Duration') );
end
16:
How can I find the duration in weeks, days, hours, minutes, seconds from a property of duration type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Duration',TObject(AxICalendar1.toICalendar[TObject(3.325),EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDuration]));
	end;
	p := Root.Properties.Item['Duration'];
	i := get_toICalendar(p.Value,p.GuessType);
	OutputDebugString( 'icalendar:' );
	OutputDebugString( i );
	OutputDebugString( 'all:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'') );
	OutputDebugString( 'duration:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'Duration') );
	OutputDebugString( 'weeks:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'W') );
	OutputDebugString( 'days:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'D') );
	OutputDebugString( 'hour:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'H') );
	OutputDebugString( 'min:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'M') );
	OutputDebugString( 'sec:' );
	OutputDebugString( get_valuesFromICalendar(i,p.GuessType,'S') );
end
15:
How can I add a property of duration type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Duration1',TObject(AxICalendar1.toICalendar[TObject(2.5),EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDuration]));
		with Properties.Add('Duration2',Nil) do
		begin
			Value := TObject(2.5);
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDuration;
		end;
		Properties.Add('Duration3',TObject(AxICalendar1.valuesToICalendar['D=2;H=12',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDuration]));
	end;
	OutputDebugString( Save() );
end
14:
How can I add a property of date-time type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('DateTime1','1/1/2001 12:00:00 PM');
		Properties.Add('DateTime2',TObject(AxICalendar1.toICalendar['1/1/2001',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDateTime]));
		with Properties.Add('DateTime3',Nil) do
		begin
			Value := '1/1/2001';
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDateTime;
		end;
	end;
	OutputDebugString( Save() );
end
13:
How can I add a property of date type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Date1','1/1/2001');
		Properties.Add('Date2',TObject(AxICalendar1.toICalendar['1/1/2001',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDate]));
		with Properties.Add('Date3',Nil) do
		begin
			Value := '1/1/2001';
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeDate;
		end;
	end;
	OutputDebugString( Save() );
end
12:
How can I add a property of Calendar User Address type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('caladdress1','mailto:support@exontrol.com');
		Properties.Add('caladdress2',TObject(AxICalendar1.toICalendar['mailto:support@exontrol.com',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeCalAddress]));
		with Properties.Add('caladdress3',Nil) do
		begin
			Value := 'mailto:support@exontrol.com';
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeCalAddress;
		end;
	end;
	OutputDebugString( Save() );
end
11:
How can I add a property of boolean type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Boolean1',TObject(True));
		Properties.Add('Boolean2',TObject(AxICalendar1.toICalendar['TRUE',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeBoolean]));
		with Properties.Add('Boolean3',Nil) do
		begin
			Value := TObject(0);
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeBoolean;
		end;
	end;
	OutputDebugString( Save() );
end
10:
How can I add a property of binary type

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		Properties.Add('Binary1',TObject(AxICalendar1.toICalendar['This is a bit of text converted to binary',EXICALENDARLib.PropertyTypeEnum.exPropertyTypeBinary]));
		with Properties.Add('Binary2',Nil) do
		begin
			Value := 'This is a bit of text converted to binary';
			Type := EXICALENDARLib.PropertyTypeEnum.exPropertyTypeBinary;
		end;
	end;
	OutputDebugString( Save() );
end
9:
How can I access the root element of the iCalendar format

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	Load('BEGIN:VCALENDAR\r\nVERSION:2.0\r\nEND:VCALENDAR');
	OutputDebugString( Root.Name );
	OutputDebugString( Root.Properties.Item['Version'].Value );
end
8:
How can I get notified once the control loads a new component, property, when using Load or LoadFile methods

// AddComponent event - Occurs when a new component is added.
procedure TWinForm1.AxICalendar1_AddComponent(sender: System.Object; e: AxEXICALENDARLib._IICalendarEvents_AddComponentEvent);
begin
	with AxICalendar1 do
	begin
		OutputDebugString( e.newComponent );
	end
end;

// AddProperty event - Occurs when a new property is added.
procedure TWinForm1.AxICalendar1_AddProperty(sender: System.Object; e: AxEXICALENDARLib._IICalendarEvents_AddPropertyEvent);
begin
	with AxICalendar1 do
	begin
			OutputDebugString( e.newPropery );
	end
end;

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	FireEvents := True;
	Load('BEGIN:VCALENDAR\r\nVERSION:2.0\r\nEND:VCALENDAR');
end
7:
How can I add a property with parameters

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		with Components.Add('VEVENT').Properties do
		begin
			Add('SUMMARY','Company Holiday Party').Parameters.Add('LANGUAGE','en-US');
			Add('DATE','1/1/2001');
		end;
	end;
	OutputDebugString( Save() );
end
6:
How can I load iCalendar from a string

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	Load('BEGIN:VCALENDAR\r\nVERSION:2.0\r\nEND:VCALENDAR');
	OutputDebugString( Content.Components.Item[TObject(0)].Name );
end
5:
How can I add VEVENT objects

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		with Properties do
		begin
			Add('Version','2.0');
			Add('PRODID','-//hacksw/handcal//NONSGML v1.0//EN');
		end;
		with Components.Add('VEVENT').Properties do
		begin
			Add('DTSTART','1/1/2001');
			Add('DTEND','1/2/2001');
			Add('SUMMARY','First Party');
		end;
		with Components.Add('VEVENT').Properties do
		begin
			Add('DTSTART','1/4/2001');
			Add('DTEND','1/5/2001');
			Add('SUMMARY','Second Party');
		end;
	end;
	OutputDebugString( Save() );
end
4:
How can I save the control's content to iCalendar format, as a file
AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		with Properties do
		begin
			Add('Version','2.0');
			Add('PRODID','-//hacksw/handcal//NONSGML v1.0//EN');
		end;
		with Components.Add('VEVENT').Properties do
		begin
			Add('DTSTART','1/1/2001');
			Add('DTEND','1/2/2001');
			Add('SUMMARY','Bastille Day Party');
		end;
	end;
	SaveFile('c:/temp/test.ical');
end
3:
How can I load the iCalendar format from a file

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	LoadFile('c:/temp/test.ical');
	OutputDebugString( Content.Components.Item['VCALENDAR'].Properties.Item['PRODID'].Value );
end
2:
How do I export the control's content to iCalendar format

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR') do
	begin
		with Properties do
		begin
			Add('Version','2.0');
			Add('PRODID','-//hacksw/handcal//NONSGML v1.0//EN');
		end;
		with Components.Add('VEVENT').Properties do
		begin
			Add('DTSTART','1/1/2001');
			Add('DTEND','1/2/2001');
			Add('SUMMARY','Bastille Day Party');
		end;
	end;
	OutputDebugString( Save() );
end
1:
How can I generate a VCALENDAR object

AxICalendar1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ICalendar.1')) as EXICALENDARLib.ICalendar);
with AxICalendar1 do
begin
	with Content.Components.Add('VCALENDAR').Properties do
	begin
		Add('Version','2.0');
		Add('PRODID','-//hacksw/handcal//NONSGML v1.0//EN');
	end;
	OutputDebugString( Save() );
end