[panaceya]

Скачал этот архив с форума автора. Кинул в дельфю 2010 - куча ошибок. Правил-правил. задобался поставил делфи 7. Ошибка пока что только одна.

[Warning] Misc.pas(33): Return value of function 'DelDir' might be undefined

Где-то тут....

function DelDir(dir: string): Boolean;

implementation

function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
if (DirectoryExists(dir)) then begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;
end;

Может кто-то знает как лечить?