Erstes Delphi Programm =)

[4nG3L]

also ich hab jetzt wieder ein problem...in der 2. reihe ist nichts mehr random also da ist garkeiner der richtige button =(

Delphi-Quellcode:

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
randomize;

if x = 10 then
begin
  BitBtn11.Visible := true;
  BitBtn12.Visible := true;
  BitBtn13.Visible := true;
  BitBtn14.Visible := true;
  BitBtn15.Visible := true;
  Bitbtn10.Font.Color := CLLime;
bitbtn10.Caption := 'RICHTIG';
  x := random(4)+1;
end
else
begin
  BitBtn10.Font.Color:= ClRED;
BitBtn10.Caption := 'FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
  label27.Caption := 'Fehler: ' + IntToStr(FZaehler);
  if FZaehler > 9 then
  begin
   If MessageDlg('Du hast das Spiel verloren, möchtest du es neu Starten ?',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes
   then
   Neustarten1.Click
   else
   Close;
end;
end;
end;

so sieht der quelltext von meinem 10. button aus (so sehn die quelltexte von den buttons 6-9 auch aus naja bis auf kleigkeiten )
muss da irgendetwas geändert werden damit es in der 2. reihe auch random wird?