Added fmm.pas

Delph Pascal implementation (Delphi 5+) and DUnit tests.