不是添加的LISTBOX 而是点击LISTBOX的时候把地图结果输出到消息模式

好的，以下是一个实现将地图数据输出到消息框中的示例代码：

procedure TForm1.ListBox1Click(Sender: TObject);
var
  MapFile: TFileStream;
  MapData: TBytes;
  MapWidth, MapHeight, MapSize: Integer;
  MapTiles: TArray<Byte>;
  MapObjects: TArray<Byte>;
  i, j: Integer;
  MapDataStr: string;
begin
  MapDataStr := '';

  MapFile := TFileStream.Create('map.dat', fmOpenRead);
  try
    MapSize := MapFile.Size;
    SetLength(MapData, MapSize);
    MapFile.ReadBuffer(MapData[0], MapSize);
  finally
    MapFile.Free;
  end;

  // 解析地图宽度和高度
  MapWidth := MapData[0] + (MapData[1] shl 8);
  MapHeight := MapData[2] + (MapData[3] shl 8);

  // 解析地图数据
  SetLength(MapTiles, MapWidth * MapHeight);
  SetLength(MapObjects, MapWidth * MapHeight);
  Move(MapData[4], MapTiles[0], MapWidth * MapHeight);
  Move(MapData[4 + MapWidth * MapHeight], MapObjects[0], MapWidth * MapHeight);

  // 输出地图数据到消息框中
  for j := 0 to MapHeight - 1 do
  begin
    for i := 0 to MapWidth - 1 do
    begin
      MapDataStr := MapDataStr + Format('%2d,%2d ', [MapTiles[j * MapWidth + i], MapObjects[j * MapWidth + i]]);
    end;
    MapDataStr := MapDataStr + #13#10;
  end;

  ShowMessage(MapDataStr);
end;

这段代码将 `TListBox` 控件的 `Click` 事件绑定到 `ListBox1Click` 函数上。当用户单击 `TListBox` 中的某一项时，该函数将打开 `map.dat` 文件，读取其中的数据，并将地图数据逐行添加到字符串变量 `MapDataStr` 中。最后，调用 `ShowMessage` 函数将 `MapDataStr` 中的内容输出到消息框中。你可以根据自己的需求修改代码，从而实现更加复杂的地图分析功能。