du brauchst auf jeden Fall ein begin...end, wenn du mehrere Anweisung nach dem then haben willst:
Delphi-Quellcode:
if Frage[1]=true then
begin
Antwort[1]:='a) 1824';
Antwort[2]:='b) 1825';
Antwort[3]:='c) 1826';
Antwort[4]:='d) 1827';
end;
wobei wenn Frage ein Array vom Typ Boolean ist, dann ist es besser nicht noch mit True zu vergleichen, du hast ja schon einen Boolean-Wert, somt reicht:
if Frage[1] then
...
Jetzt hab ich aber nur noch nicht verstanden, was du überhaupt willst. Text auf Button schreiben?
Angenommen du hast Button1-4 dann:
Button1.Caption:=Antwort[1]
Button2.Caption:=Antwort[2]
Button3.Caption:=Antwort[3]
Button4.Caption:=Antwort[4]