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