Form létrehozása és megjelenítése annak neve alapján

initialization
  RegisterClasses([TForm2, TForm3, TForm4]);

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin

  s:=(Sender as TButton).Caption;

  with TFormClass(FindClass(s)).Create(Application) do begin
    Color:=Random(256*256*256);
    Left:=Random(Screen.Width-Width);
    Top:=Random(Screen.Height-Height);
    Show;
  end;
end;