source: branches/test1/Server/UDataModuleMain.pas

unit UDataModuleMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil;

type

  { TDataModuleMain }

  TDataModuleMain = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  DataModuleMain: TDataModuleMain;

implementation

{$R *.lfm}

{ TDataModuleMain }

procedure TDataModuleMain.DataModuleCreate(Sender: TObject);
begin
end;

end.