[ferget]

Код:

if(sear.Name!="тут имя файла")
{
   DeleteFile(Path+"\\"+sear.Name);
   dt = Now();// формат даты
   memo->Lines->Add(DateToStr(dt) +" " + TimeToStr(dt) +" " + " - "+"Удален ярлык :    "+Path+sear.Name+", размер: " +IntToStr(sear.Size)+" байт");
}