DefineGlobalConstant('imagen1,GetBMPAsBits("imagen1.bmp",nil));
DefineGlobalConstant('imagen2,GetBMPAsBits("imagen2.bmp",nil));

defineGlobalConstant('kMiFuncion1,func(data, offset, str)
 begin
  local strLength, i;
  strLength := StrLen(str);
  if length(data) >= offset + strLength
  	  then begin
    	  for i := 0 to strLength - 1 do if ExtractChar(data, offset + i) <> str[i]
        	then return;
  	    true
 	   end
 end);
 
defineglobalconstant('kMiFuncion2,
func(bounds) begin
  local boundsRect;
  boundsRect := MakeBinary(8, 'boundsRect);
  StuffWord(boundsRect, 0, bounds.top);
  StuffWord(boundsRect, 2, bounds.left);
  StuffWord(boundsRect, 4, bounds.bottom);
  StuffWord(boundsRect, 6, bounds.right);
  boundsRect
end
);