IsRegMark example for Delphi
procedure TForm1.Button1Click(Sender: TObject);
var
nRet: integer;
begin
// Load a bitmap at its own bits per pixel
LEADImage1.Load('e:\\image1.cmp', 0, 1, 1 );
nRet:= LEADImage1.IsRegMark (RGS_T, 90, 110, 31, 29);
if (nRet = SUCCESS) then
begin
//it is a registration mark
end;
end;