این کد چه میکند؟

[ariopax]

سلام

من برنامه نویس دلفی هستم.

لطفا دوستان کمک کرده بفرمایند این کد که مخلوطی از جاوا و دلفی است .قسمتهای مربوط به جاوای آن چه میکند؟
var
js: string;
begin
Result := TIWXMLTag.CreateTag('control');
try
Result.AddStringParam('id', HTMLName);
Result.AddStringParam('type', 'TTIWCALENDAR');
RenderAsyncCommonProperties( AContext, Result );

js :=
'<![CDATA['
+ ''+HTMLName+'year = '+ IntToStr(Year) + ';'#13
+ ''+HTMLName+'month = '+ IntToStr(Month - 1) + ';'#13
+ ''+HTMLName+'day = '+ IntToStr(Day) + ';'#13
+ 'FindElem("'+HTMLName+'").value = '+HTMLName+'day+"/"+'+HTMLName+'month+"/"+'+HTMLName+'year'#13
+ 'document.getElementById("'+HTMLName+'mycal").innerHTML = '+HTMLName+'GetCalendar();'#13
+']]>';

GGetWebApplicationThreadVar.CallBackResponse.AddJa vaScriptToExecute(js);



باتتشکر