Unnamed

procedure TFormUpload.LoadSettings;
var
  Ini: TIniFile;
  ThumbRValue,ThumbGValue,ThumbBValue: Integer;
begin

//HUSK AT SLETTE DE KONSTANTER DU HAR LAVET DIN NØD
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
     //Thumbs
       //ImageThumb.Width := Ini.WriteInteger( 'Thumb', 'Width', 160);
       //ImageThumb.Height := Ini.WriteInteger( 'Thumb', 'Height', 120);
       ComboBoxThumbFont.Text := Ini.ReadString( 'Thumb', 'FontName', 'Times New Roman');
       ComboBoxThumbSize.Text := Ini.ReadString( 'Thumb', 'FontSize', '12');
       EditThumbText.Text := Ini.ReadString( 'Thumb', 'FontText', PhotoText);
       CheckBoxThumbBold.Checked := Ini.ReadBool( 'Thumb', 'FontStyleBold', false);
       CheckBoxThumbItalic.Checked := Ini.ReadBool( 'Thumb', 'FontStyleItalic', false);
       CheckBoxThumbUnderline.Checked := Ini.ReadBool( 'Thumb', 'FontStyleUnderline', false);
       CheckBoxThumbStrikeOut.Checked := Ini.ReadBool( 'Thumb', 'FontStyleStrikeOut', false);
       ThumbRValue := Ini.ReadInteger( 'Thumb', 'FontColorRed', 0);
       ThumbGValue := Ini.ReadInteger( 'Thumb', 'FontColorGreen', 0);
       ThumbBValue := Ini.ReadInteger( 'Thumb', 'FontColorBlue', 0);
       RadioButtonThumbPNG.Checked := Ini.ReadBool( 'Thumb', 'PNG', false);
       ThumbPNGPath := Ini.ReadString( 'Thumb', 'PNGPath', '');
       //HUSK - RGB To color
     //REAL

  finally
    Ini.Free;
  end;
end;