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;