Button Farbe ändern ?

[Cookienation]

Hi !
Ich programmiere mir gerade einen Gambling Simulator.
Wer Gambling kennt, weiß, dass die Buttons 0, 1-6 und 7-14 Farbig sein sollten
Aber bei Lazarus kann man die Farbe eines Buttons nicht ändern :/
Einer eine Idee, wie man das sonst umsetzen könnte?
Danke

Simulator:

http://www.mediafire.com/file/q65eb3...sInstaller.exe

[/edit]
Ich lade jedes mal, wenn der Benutzer ein Bild anklickt, das Bild zum jeweiligen Skin.
Das sieht so aus:

Delphi-Quellcode:

procedure TShopForm.SkinAnzeigen;
begin
    if lblPreis.Caption <> '' then
      lblCoins.Caption := 'Coins';

    lblItemName.Caption := Selected;
    case Selected of
      'M9 Bayonet':
      begin
        lblPreis.Caption := '121000';
        Image1.Picture.LoadFromFile('M9.png');
      end;
      'M9 Bayonet | Crimson Web':
      begin
        lblPreis.Caption := '349000';
        Image1.Picture.LoadFromFile('M9 Crimson Web.png');
      end;
      'M9 Bayonet | Lore':
      begin
        lblPreis.Caption := '714000';
        Image1.Picture.LoadFromFile('M9 Lore.png');
      end;
      'M9 Bayonet | Black Laminate':
      begin
        lblPreis.Caption := '182000';
        Image1.Picture.LoadFromFile('M9 Black Laminate.png');
      end;
      'M9 Bayonet | Gamma Doppler':
      begin
        lblPreis.Caption := '374000';
        Image1.Picture.LoadFromFile('M9 Gamma Doppler.png');
      end;
      'M9 Bayonet | Autotronic':
      begin
        lblPreis.Caption := '340000';
        Image1.Picture.LoadFromFile('M9 Autotronic.png');
      end;
      'M9 Bayonet | Bright Water':
      begin
        lblPreis.Caption := '145000';
        Image1.Picture.LoadFromFile('M9 Bright Water.png');
      end;
      'M9 Bayonet | Freehand':
      begin
        lblPreis.Caption := '221000';
        Image1.Picture.LoadFromFile('M9 Freehand.png');
      end;
      'M9 Bayonet | Damascus Steel':
      begin
        lblPreis.Caption := '127000';
        Image1.Picture.LoadFromFile('M9 Damascus Steel.png');
      end;
      'M9 Bayonet | Doppler':
      begin
        lblPreis.Caption := '223000';
        Image1.Picture.LoadFromFile('M9 Doppler.png');
      end;
      'M9 Bayonet | Marble Fade':
      begin
        lblPreis.Caption := '338000';
        Image1.Picture.LoadFromFile('M9 Marble Fade.png');
      end;
      'M9 Bayonet | Tiger Tooth':
      begin
        lblPreis.Caption := '272000';
        Image1.Picture.LoadFromFile('M9 Tiger Tooth.png');
      end;
      'M9 Bayonet | Rust Coat':
      begin
        lblPreis.Caption := '93000';
        Image1.Picture.LoadFromFile('M9 Rust Coat.png');
      end;
      'M9 Bayonet | Ultraviolet':
      begin
        lblPreis.Caption := '802000';
        Image1.Picture.LoadFromFile('M9 Ultraviolet.png');
      end;
      'M9 Bayonet | Blue Steel':
      begin
        lblPreis.Caption := '179000';
        Image1.Picture.LoadFromFile('M9 Blue Steel.png');
      end;
      'M9 Bayonet | Boreal Forest':
      begin
        lblPreis.Caption := '321000';
        Image1.Picture.LoadFromFile('M9 Boreal Forest.png');
      end;
      'M9 Bayonet | Case Hardened':
      begin
        lblPreis.Caption := '223000';
        Image1.Picture.LoadFromFile('M9 Case Hardened.png');
      end;
      'M9 Bayonet | Fade':
      begin
        lblPreis.Caption := '222000';
        Image1.Picture.LoadFromFile('M9 Fade.png');
      end;
      'M9 Bayonet | Forest DDPAT':
      begin
        lblPreis.Caption := '290000';
        Image1.Picture.LoadFromFile('M9 Forest DDPAT.png');
      end;
      'M9 Bayonet | Night':
      begin
        lblPreis.Caption := '165000';
        Image1.Picture.LoadFromFile('M9 Night.png');
      end;
      'M9 Bayonet | Safari Mesh':
      begin
        lblPreis.Caption := '128000';
        Image1.Picture.LoadFromFile('M9 Safari Mesh.png');
      end;
      'M9 Bayonet | Scorched':
      begin
        lblPreis.Caption := '177000';
        Image1.Picture.LoadFromFile('M9 Scorched.png');
      end;
      'M9 Bayonet | Slaughter':
      begin
        lblPreis.Caption := '268000';
        Image1.Picture.LoadFromFile('M9 Slaughter.png');
      end;
      'M9 Bayonet | Stained':
      begin
        lblPreis.Caption := '169000';
        Image1.Picture.LoadFromFile('M9 Stained.png');
      end;
      'M9 Bayonet | Urban Masked':
      begin
        lblPreis.Caption := '87000';
        Image1.Picture.LoadFromFile('M9 Urban Masked.png');
      end;
    end;
  end;

Geht das noch irgendwie leichter & schneller?
Danke