TTileInfo = packed record
    IsExists    : Boolean;
    IsExistsTne : Boolean;
    LoadDate    : Int64; // unix timestamp
    Size        : Cardinal;
    Version     : string;
    ContentType : AnsiString;
    Data        : AnsiString;
  end;

  IPascalScriptTileCache = interface    
    function Read(
      const X: Integer;
      const Y: Integer;
      const AZoom: Byte;
      const AVersion: string;
      const AWithData: Boolean
    ): TTileInfo;

    function Write(
      const X: Integer;
      const Y: Integer;
      const AZoom: Byte;
      const AVersion: string;
      const AContentType: AnsiString;
      const AData: AnsiString;
      const AIsOverwrite: Boolean
    ): Boolean;

    function WriteTne(
      const X: Integer;
      const Y: Integer;
      const AZoom: Byte;
      const AVersion: string
    ): Boolean;

    function Delete(
      const X: Integer;
      const Y: Integer;
      const AZoom: Byte;
      const AVersion: string
    ): Boolean;
  end;

procedure PrintInfo(var AInfo: TTileInfo);
begin
  Logger.WriteFmt(
    'IsExists: %d, IsExistsTne: %d, Size: %d, Content-Type: %s, Date: %d',
    [AInfo.IsExists, AInfo.IsExistsTne, AInfo.Size, AInfo.ContentType, AInfo.LoadDate]
  );
end;

var
  VInfo: TTileInfo;
  VResult: Boolean;
begin 
  VResult := TileCache.Write(0, 0, 0, '', 'image/png', '123', False);
  writeln(IntToStr(Integer(VResult)));
  
  VInfo := TileCache.Read(0, 0, 0, '', True);
  PrintInfo(VInfo);
  
  VResult := TileCache.WriteTne(0, 0, 0, '');
  writeln(IntToStr(Integer(VResult)));
  
  VInfo := TileCache.Read(0, 0, 0, '', True);
  PrintInfo(VInfo);
end.

Global.Lock;
try
  // тут весь код формирования ResultURL
finally
  Global.Unlock;
end;