[Logrim]

Thanks Altef, but unknow identifier Arc in this line, into curvestepchanged:

SetArrayLength(Arc,8);

When i define the var in curvestepchange give me type mismatch error in:

Arc[0]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Type','',ExpandConstant('{tmp}\Setup.ini'));

The entire part of the code is:

Wizardform.ProgressGauge.Max:=0;
x:=1;
if GetIniString('ExtractSettings','Archive1Type','',E xpandConstant('{tmp}\Setup.ini')) <> '' then
begin
SetArrayLength(Arc,8);
repeat
Arc[0]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Type','',ExpandConstant('{tmp}\Setup.ini'));
Arc[1]:=ExpandConstant(GetIniString('ExtractSettings','A rchive'+IntToStr(x)+'Source','',ExpandConstant('{t mp}\Setup.ini')));
Arc[2]:=ExpandConstant(GetIniString('ExtractSettings','A rchive'+IntToStr(x)+'Output','',ExpandConstant('{t mp}\Setup.ini')));
Arc[3]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Disk','1',ExpandConstant('{tmp}\Setup.ini')) ;
Arc[4]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Language','',ExpandConstant('{tmp}\Setup.ini '));
Arc[5]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Component','',ExpandConstant('{tmp}\Setup.in i'));
Arc[6]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Task','',ExpandConstant('{tmp}\Setup.ini'));
Arc[7]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Password','',ExpandConstant('{tmp}\Setup.ini '));
Wizardform.ProgressGauge.Max:=Wizardform.ProgressG auge.Max + 1000;
x:= x + 1;
until GetIniString('ExtractSettings','Archive' + IntToStr(x) + 'Type','',ExpandConstant('{tmp}\Setup.ini')) = '';
end;