if Frage[1]=true then
tausch das mal besser gegen if Frage[1] then
aus. Gewöhn dir das mit = True und False gar nicht erst an.
Dann wird mir nur gesagt, dass der Ausdruckstyp boolean sein muss :/
Code:
//Sucht zufällig eine Frage aus dem Bereich Musik aus.
procedure MusikFrageAussuchen ;
begin
r:=0;
randomize;
r:=random(5)+1;
Frage[1]:='In welchem Jahr ist Beethoven gestorben?';
Frage[2]:='Wie viele Sätze hat eine Sinfonie?';
Frage[3]:='Von wann bis wann ging die Barockzeit?';
Frage[4]:='Wer war kein berühmter Komponist der Wiener Klassik?';
Frage[5]:='Wie nennt man das Instrument "Geige" noch?';
end;
//Zeigt die Musik-Antworten auf den Buttons an
procedure MusikAntworten;
begin
if Frage[1] then
Form2.Button1.Caption:=Antwort[1]:='a) 1824';
Form2.Button2.Caption:=Antwort[2]:='b) 1825';
Form2.Button3.Caption:=Antwort[3]:='c) 1826';
Form2.Button4.Caption:=Antwort[4]:='d) 1827';