///////////////////////////////////////////////////////////
//                        EiEdit                         //
//      Редактор части ресурсов Проклятых Земель         //
//             Copyright (C) 2002 Gipat Group            //
//              Распространяется на условиях             //
//    Gipat Group's opened EI-editor-utility license     //
//                      версии 1.0                       //
//                                                       //
//                  www.gipatgroup.org                   //
///////////////////////////////////////////////////////////

//К работе над данным файлом приложили руки, ноги.... короче аффтары:
// 1) Sagrer (sagrer@yandex.ru)

////////////////////////////////////////////////////////////////////////

unit DelF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, initer, KOLClearDir;

type
  TDelForm = class(TForm)
    Label1: TLabel;
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    DelPath : string;
  end;

var
  DelForm: TDelForm;

implementation

{$R *.DFM}

procedure TDelForm.FormPaint(Sender: TObject);
begin
  Label1.Refresh;
  ClearDir(DelPath,true);
  Close;
end;

end.