Wie vereinfachen und warum Aussetzer?

[RavenIV]

Also ich würde erst mal den Code vereinfachen.
In jedem Case steht im Prinzip der gleiche Code.
Das könnte man in eine Procedure auslagern:

Delphi-Quellcode:

procedure LadeImage(Bild: string);
begin
  // Pseudo-Code
  Pfad herausfinden;
  Bild laden;
  Aus Bildname die Caption auslesen;
  Caption setzen;
end;

Aufruf wäre dann so:

Delphi-Quellcode:

case Lotto of 
  1: LadeImage('C-Dur.jpg');
  2: LadeImage('D-Dur.jpg');
end;

/edit:
Du könntest auch noch weiter vereinfachen.
Array für die verschiedenen Tonarten anlegen und der Funktion den Index des Array mitgeben.

Delphi-Quellcode:

// Pseudo-Dode
MollArray := Array of string('D-Moll', 'A-Moll', 'E-Moll', ...);
DurArray := Array of string(...);
...
...
if Akkordwahl = 4 then
begin
  Lotto := random(6); 
  LadeImage(MollArray[Lotto]);
end;

P.S. Ein besserer Titel für den Thread wäre auch nicht schlecht.