1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Procedure   TdlgUSRdelete.evt_btnDelete(Sender : TObject);
Var WriteFile                                           : File;
    FileName                                            : String;
    Data                                                : TData;
Begin
  {$I+}
    If Mother.getFirstChild = Nil Then Else
    Begin
      Repeat
        FileName:=Manager^.Root + Mother.Text + '\' + Mother.getFirstChild.Text + '.lsn';
        AssignFile(WriteFile, FileName); Reset(WriteFile, $1); CloseFile(WriteFile);
        Erase(WriteFile); Data:=Mother.getFirstChild.Data; Dispose(Data, Destroy);
        Manager^.TreeView.Items.Delete(Mother.getFirstChild);
      Until Mother.getFirstChild = Nil;
    End;
    FileName:=Manager^.Root; Delete(FileName, Length(FileName), $1);
    ChDir(FileName);
    FileName:=FileName + '\' + Mother.Text;
    RmDir(FileName);
  {$I+}
  Data:=Mother.Data; Dispose(Data, Destroy);
  Manager^.TreeView.Items.Delete(Mother); Close;
End;					

1:
2:

AssignFile(WriteFile, FileName); Reset(WriteFile, $1); CloseFile(WriteFile);  
Erase(WriteFile);					

1:
2:

AssignFile(WriteFile, FileName);
Erase(WriteFile);