forex tester2のインディケーターを自作

library HourDisp;

uses
  Interfaces, DateUtils, graphics, 
  IndicatorInterfaceUnit, TechnicalFunctions;

var
  HOUR: TIndexBuffer;

procedure Init; stdcall;
begin
  IndicatorShortName('Hour');
  SetOutputWindow(ow_SeparateWindow);
  SetFixedMinMaxValues(-1, 24);

  HOUR := CreateIndexBuffer;
  IndicatorBuffers(1);
  SetIndexBuffer(0, HOUR);
end;

procedure Calculate(index: integer); stdcall;
begin
     HOUR[index] := HourOf(Time(index));
end;

exports
Init, Calculate;

end.

Forex Testerを起動してインディケーターを追加すると
勝手に線の種類と色を選択できるようになっていました。親切設計です。
 

15分足で表示してみました。4本毎に1ずつ増えています。でも0時の時に線が表示されていません。