Jaja, her er så koden
procedure skift;
var
i:byte;
Synlig:array [0..15] of boolean;
begin
for i:=0 to 15 do
begin
Synlig[I]:=false;
end;
randomize;
Synlig[round(random*15)]:=true;
Synlig[round(random*15)]:=true;
Form1.Button1.visible:=Synlig[0];
Form1.Button2.visible:=Synlig[1];
Form1.Button3.visible:=Synlig[2];
Form1.Button4.visible:=Synlig[3];
Form1.Button5.visible:=Synlig[4];
Form1.Button6.visible:=Synlig[5];
Form1.Button7.visible:=Synlig[6];
Form1.Button8.visible:=Synlig[7];
Form1.Button9.visible:=Synlig[8];
Form1.Button10.visible:=Synlig[9];
Form1.Button11.visible:=Synlig[10];
Form1.Button12.visible:=Synlig[11];
Form1.Button13.visible:=Synlig[12];
Form1.Button14.visible:=Synlig[13];
Form1.Button15.visible:=Synlig[14];
Form1.Button16.visible:=Synlig[15];
end;
Du skal bare sætte den i en timers onTimerEvent, så skulle det virke.
T dér