Program BMSearchDemo;
var i : Integer;

Begin

i := BMSearch(1, 'Test Demo String', 'Demo');
AddToSystemJournal(IntToStr(i));
i := BMSearch(1, 'Test Demo String', 'demo');
AddToSystemJournal(IntToStr(i));

End.