source: branches/topdown/Apps/AppFileManager.pas

unit AppFileManager;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, OsSystem;

type

  { TFormFileManager }

  TFormFileManager = class(TFormTask)
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
  end;


implementation

{$R *.lfm}

{ TFormFileManager }

procedure TFormFileManager.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  Terminate;
end;

end.