[lostbananan]

третья часть кода:

Код:

  rez := sIniFile.ReadInteger('Результати', 'Наркотики', 0);  // Статус входить до тесту
  if rez = 1 then
    begin
      rez := sIniFile.ReadInteger('Результати', 'Наркотики 15', 0);
      if rez = 1 then
        drugs := 15;
      rez := sIniFile.ReadInteger('Результати', 'Наркотики 30', 0);
      if rez = 1 then
        drugs := 30;
      rez := sIniFile.ReadInteger('Результати', 'Наркотики 45', 0);
      if rez = 1 then
        drugs := 45;
      rez := sIniFile.ReadInteger('Результати', 'Наркотики 60', 0);
      if rez = 1 then
        drugs := 60;
      rez := sIniFile.ReadInteger('Результати', 'Наркотики 75', 0);
      if rez = 1 then
        drugs := 75;
      rez := sIniFile.ReadInteger('Результати', 'Наркотики 85', 0);
      if rez = 1 then
        drugs := 85;
      rez := sIniFile.ReadInteger('Результати', 'Наркотики 100', 0);
      if rez = 1 then
        drugs := 100;
    end;
  rez := sIniFile.ReadInteger('Результати', 'Звільнення', 0);  // Статус входить до тесту
  if rez = 1 then
    begin
      rez := sIniFile.ReadInteger('Результати', 'Звільнення 15', 0);
      if rez = 1 then
        dismissal := 15;
      rez := sIniFile.ReadInteger('Результати', 'Звільнення 30', 0);
      if rez = 1 then
        dismissal := 30;
      rez := sIniFile.ReadInteger('Результати', 'Звільнення 45', 0);
      if rez = 1 then
        dismissal := 45;
      rez := sIniFile.ReadInteger('Результати', 'Звільнення 60', 0);
      if rez = 1 then
        dismissal := 60;
      rez := sIniFile.ReadInteger('Результати', 'Звільнення 75', 0);
      if rez = 1 then
        dismissal := 75;
      rez := sIniFile.ReadInteger('Результати', 'Звільнення 85', 0);
      if rez = 1 then
        dismissal := 85;
      rez := sIniFile.ReadInteger('Результати', 'Звільнення 100', 0);
      if rez = 1 then
        dismissal := 100;
    end;
    for i:=0 to 10 do
    begin
      // прогресбари і мітки до них
      labels[i] := TLabel.Create(Form1);
      labels[i].Parent := Form1;
      labels[i].Caption := Captions[i];
      labels[i].Left := 55;
      labels[i].Width := 135;
      labels[i].Top := 8+40*i;
      bars[i] := TProgressBar.Create(Form1);
      bars[i].Parent := Form1;
      bars[i].Left := 22;
      bars[i].Width := 521;
      bars[i].Top := 22+40*i;
    end;
end;