Random

[Mothergrayham]

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

RandomValue : random(3);
case RandomValue of
0: Form1.Show;
1: Form2.Show;
2: Form3.Show;
end;

jetzt sieht das so aus aber den fehler macht er immer noch