[angvelem]

Код от Nixel подходит в самый раз:

Код:

  case J of
    0..5           : 
    begin
      lblPrestige.Caption := 'Новичок';
      Image1.Picture.LoadFromFile('новичок.jpg'); 
    end;
    6..10          : lblPrestige.Caption := 'Бывалый(ая)';
    11..15         : lblPrestige.Caption := 'Уважаемый(ая)';
    16..20         : lblPrestige.Caption := 'Мастер';
    21..25         : lblPrestige.Caption := 'Профессионал(ка)';
    26..50         : lblPrestige.Caption := 'Гуру';
    51..100        : lblPrestige.Caption := 'Неприкасаемый(ая)';
    101..500       : lblPrestige.Caption := 'Папа/Мама';
    501..1000      : lblPrestige.Caption := 'Ангел';
    1001..5000     : lblPrestige.Caption := 'Бог/Богиня';
    5001..10000    : lblPrestige.Caption := 'Всемогущий(ая)';
    10001..50000   : lblPrestige.Caption := 'Mister/Miss';
    50001..100000  : lblPrestige.Caption := 'Легенда';
    100001..500000 : lblPrestige.Caption := 'Премьер';// тут нужные значения и их звания
  else
    lblPrestige.Caption := 'Супер';
  end;

и так добавить везде или продублировать так:

Код:

  case J of
    0..5           : Image1.Picture.LoadFromFile('новичок.jpg');
    6..10          : Image1.Picture.LoadFromFile('Бывалый.jpg');
    11..15         : Image1.Picture.LoadFromFile('Уважаемый.jpg');
    16..20         : Image1.Picture.LoadFromFile('Мастер'.jpg');
    21..25         : Image1.Picture.LoadFromFile('Профессионал.jpg');
    26..50         : Image1.Picture.LoadFromFile('Гуру.jpg');
    51..100        : Image1.Picture.LoadFromFile('Неприкасаемый.jpg');
    101..500       : Image1.Picture.LoadFromFile('Папа.jpg');
    501..1000      : Image1.Picture.LoadFromFile('Ангел.jpg');
    1001..5000     : Image1.Picture.LoadFromFile('Бог.jpg');
    5001..10000    : Image1.Picture.LoadFromFile('Всемогущий.jpg');
    10001..50000   : Image1.Picture.LoadFromFile('Mister.jpg');
    50001..100000  : Image1.Picture.LoadFromFile('Легенда.jpg');
    100001..500000 : Image1.Picture.LoadFromFile('Премьер'.jpg');
  else
    Image1.Picture.LoadFromFile('Супер.jpg');
  end;

это уж как понравится.