//(メモ)コンパイラオプションの[型付き定数への代入]をチェック

//======================================================================
//  機能：フォーム生成時の処理
//======================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
    tmShowAdTimer( Nil );       {初期表示}
end;


//======================================================================
//  機能：広告欄に表示する内容の切り替え
//======================================================================
procedure TForm1.tmShowAdTimer(Sender: TObject);
const
        ad_interval = 10000;    {表示切替=10秒毎}
        ad_max = 5;             {広告htmlの件数}
        ad_idx: integer = 1;
        ref_tm = 1000;          {リレッシュ表示を行うまでの時間}
var
        url: string;
begin
    if tmShowAd.Tag=1 then begin    //リレッシュ表示
        WebBrowser.Refresh;
        Panel2.Visible := TRUE;         {ちらつき抑制}
        //通常の広告表示に戻す
        tmShowAd.Tag := 0;
        tmShowAd.Interval := ad_interval-ref_tm;
    end
    else begin                      //表示する広告の切替
        if Sender=tmShowAd then begin
            Inc( ad_idx );
            if ad_idx>ad_max then ad_idx:=1;
        end;
        Panel2.Visible := FALSE;        {ちらつき抑制}
        url := format('http://○○○/show_ad%d.html',[ad_idx] );
        WebBrowser.Navigate( url );
        //URL先に変更が有るかもしれないのでリレッシュ表示を行う
        tmShowAd.Tag := 1;
        tmShowAd.Interval := ref_tm;
    end;
end;