Random

[DeddyH]

Das Randomize packst Du zuerst einmal ins FormCreate, dann wird es nur einmal ausgeführt . Und RandomValue hast Du ja auch nicht als Variable deklariert (es geht aber auch ohne diese Variable).

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Randomize; weg, ins FormCreate damit
  case random(10) of
    0: Form1.Show;
    1: Form2.Show;
    2: Form3.Show;
  end;//das end zum case
end;