if(trim(sPath_and_File)='') sPath_and_File :='C:\price_'+month(Cur_Date) +'_'+year(Cur_Date) + '.htm';
DeleteFile( sPath_and_File );
aFile.OpenFile( sPath_and_File,stCreate);
aFile.Seek(aFile.GetSize);
//... вывод в файл
afile.WriteLn('<?include "../templates/top.inc";?>');
afile.WriteLn('<table width="100%" border="1" cellspacing="0" cellpadding="10" bordercolor="#CCCCCC">');
afile.WriteLn('<tr>');
afile.WriteLn('<td width="220" valign="top">');
//...
aFile.Close