Código Delphi
[-]
unit Unit1;
interface
uses
SysUtils, Classes;
type
TDataModule1 = class(TDataModule)
private
public
end;
var
DataModule1: TDataModule1;
implementation
{$R *.dfm}
initialization
finalization
end.
Ten en cuenta que el código dentro de initialization y finalization es el código de inicialización y finalización de la unit y no de la clase TDataModule1.
Saludos!