Алгоритм максимизации ожидания (EM) отдельным модулем / MyEM / MMyEM

unit MMyEM;

interface
uses
Core,BaseModule,Instances,Forms,Windows,SysUtils,TypeEM,FMyEM;
type
MEM=class (Tbasemodule)
function getname(): String;virtual;
procedure initview(var X:TDMcore);virtual;
end;
implementation

function MEM.getname():string;
begin
getname:='MyEM';
end;

procedure MEM.initview(var X:TDMcore);
begin
FEM.init(X);
end;
end.