[Electronic_Arts]

Вот так попробуй - должно помочь

Код:

var
x:integer;
f: TForm;
begin
randomize;
x:=2+random(2);
f:= Screen.Forms[x];
f.Show;
end;