[v1s2222]

Есть момент, 3 оставшиеся формы надо создавать в ран тайме, или они уже есть.
Если они уже есть, то:

Код:

var
n: integer;
begin
randomize;
n:=random(3)+1;
Case n of
1: Form2.ShowModal; // или просто Show;
2: Form3.ShowModal;
3: Form4.ShowModal;
end;