Lazarus查询天气接口

提供API接口服务地址：API服务,天气API - 帮! (help.bj.cn)https://api.help.bj.cn/api/?id=45
单元定义：

unit utWeatherApi;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, fphttpclient, openssl, opensslsockets;

const
  TCityCodeTable: array [1..7, 1..2] of string = (
    ('北京', '101010100'),
    ('上海', '101020100'),
    ('广州', '101280101'),
    ('深圳', '101280601'),
    ('成都', '101270101'),

    ('武汉', '101200101'),
    ('天津', '101030100')
    );

type

  { TSearchThread }
  TRespondResultEvent = procedure(FValue: string) of object;

  TSearchThread = class(TThread)
  private
    FCityCode: string;
    FRespondResultJsonText: strin