rewrite mq4 to dpr and dll

[hjabu]

Please could someone make correction for this code:

//---------------------------------------------------------------------------
// THV SDX-TzPivots_v4.9
//---------------------------------------------------------------------------

library THVSDXTzpivots;

{ #property copyright "Copyright Shimodax"
#property link "http://www.strategybuilderfx.com" }

uses
SysUtils,
classes,
graphics,
math,
DateUtils,
IndicatorInterfaceUnit,
TechnicalFunctions in 'TechnicalFunctions.pas';
var
Continuous: boolean = false;
ShowMidpoints: boolean = true;
PivotType: integer = 0;
Local__HrsServerTzFromGMT: intger = 0;
Destination__HrsNewTZfromGMT: integer = 0;
Show_1Daily_2FibonacciPivots: integer = 2;
FullScreenLines: boolean = FALSE;
__withMarginPrices: boolean = TRUE;
MoveLabels_LR_DecrIncr: integer = 0;
R5_Color: color = FireBrick;
R5_LineStyle_01234: intger = 2;
R5_SolidLineThickness: integer = 1;
R4_Color: color = FireBrick;
R4_LineStyle_01234: integer = 2;
R4_SolidLineThickness: integer = 1;
R3_Color: color = FireBrick;
R3_LineStyle_01234: integer = 2;
R3_SolidLineThickness: integer = 1;
R2_Color: color = C0x9B0x1E0x1E;
R2_LineStyle_01234: integer = 2;
R2_SolidLineThickness: integer = 1;
R1_Color: color = C0x7D0x170x17;
R1_LineStyle_01234: integer = 2;
R1_SolidLineThickness: integer = 1;
CentralPivotColor: color = C0x00_0x62_0x62;
CentralPivotLineStyle_01234: integer = 0;
CentralPivotSolidLineThickness: integer = 1;
S1_Color: color = DarkGreen;
S1_LineStyle_01234: integer = 2;
S1_SolidLineThickness: integer = 1;
S2_Color: color = Green;
S2_LineStyle_01234: integer = 2;
S2_SolidLineThickness: integer = 1;
S3_Color: color = ForestGreen;
S3_LineStyle_01234: integer = 2;
S3_SolidLineThickness: integer = 1;
S4_Color: color = ForestGreen;
S4_LineStyle_01234: integer = 2;
S4_SolidLineThickness: integer = 1;
S5_Color: color = ForestGreen;
S5_LineStyle_01234: integer = 2;
S5_SolidLineThickness: integer = 1;
MidPivotsColor: color = C0x62_0x62_0x00;
MidPivotsLineStyle_01234: integer = 2;
MidPivotsLineThickness: integer = 1;
ShowMidPivots: boolean = TRUE;
QtrPivotsColor: color = SaddleBrown;
QtrPivotsLineStyle_01234: integer = 2;
QtrPivotsLineThickness: integer = 1;
ShowQtrPivots: boolean = FALSE;
YesterdayHighLowColor: color = C0x49_0x49_0x49;
HighLowLineStyle_01234: integer = 2;
HighLowSolidLineThickness: integer = 1;
ShowYesterdayHighLow: boolean = TRUE;
TodayOpenColor: color = C0x71_0x00_0x71;
TodayOpenLineStyle_01234: integer = 2;
TodayOpenSolidLineThickness: integer = 1;
ShowTodayOpen: boolean = TRUE;
CamarillaColor: color = Orchid;
CamarillaLineStyle_01234: integer = 2;
CamarillaSolidLineThickness: integer = 1;
ShowCamarilla: boolean = FALSE;
PeriodSeparatorLinesColor: color = C0x62_0x62_0x00;
SeparatorLinesStyle_01234: integer = 0;
SeparatorLinesThickness: integer = 1;
ShowPeriodSeparatorLines: boolean = TRUE;
PeriodSeparatorsLabelsColor: color = C0x62_0x62_0x00;
PlaceAt_TopBot_12_OfChart: integer = 2;
SeparatorLabelFontSize: integer = 9;
S_Label_Norm_Bold_Black_123: integer = 2;
ShowPeriodSeparatorLabels: boolean = TRUE;
PivotLinesLabelColor: color = C0x62_0x62_0x00;
LineLabelsFontSize: integer = 9;
L_Label_Norm_Bold_Black_123: integer = 1;
LineLabelsIncludePrice: boolean = TRUE;
Relabeler_Adjustment: integer = 10;
Show_Relabeler_Comment: boolean = FALSE;
Show_Data_Comment: boolean = FALSE;
integer: gi_392;
integer: gi_396 = 0;
integer: gi_400 = 0;

integer: init()
if(Ask > 10.0)
gi_392 = 2;
integer: gi_392 = 4;
Print("Period= ", Period());

exports

Init, Done, Calculate;

begin

end.

At the above i have copy from my mq4 code indicators, i have no proble with var code, but i have Expected eror appear on "if" words, how do i define a correct code...

[FT Support]

See here:
http://www.forextester.com/forum/viewto ... c&start=15