unit CommXU;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB;
type
  TComm1 = class(TDataModule)
  private
    FolderDesc:TStringList;
    { Private declarations }
  public
    DirLabel:String;
    { Public declarations }
  end;

var
  Comm1: TComm1;

implementation

{$R *.dfm}

end.