아래함수를 사용하세요 ^^!

//===================================================================
function Create_Form(sClass : string):Boolean;
var MyFormClass : TFormClass;
    MyForm : TForm;
    i :integer;
begin
  Result := True;
  for i := 0 to (Screen.FormCount - 1 ) do
  begin
    if Screen.Forms[i].Name = Copy(sClass,2,length(sClass)-1) then
    begin
       Screen.Forms[i].show;
       Exit;
    end;
  end;

  MyFormClass := TFormClass(GetClass(sClass)); //클래스를 찾아온다
  if MyFormClass <> nil then
  begin
    Application.CreateForm(TFormClass(FindClass(sClass)), MyForm);
    for i := 0 to (Screen.FormCount - 1 ) do
    begin
      if Screen.Forms[i].Name = Copy(sClass,2,length(sClass)-1) then
      begin
         Screen.Forms[i].show;
         Exit;
      end;
    end;
  end
  else
    Result := False;
end;

= 사용방법 ===========================================================
sStr := 'T' + 폼명
Create_Form(sStr);

일단 답변 감솨 감솨 ^0^
그런데 auto create시에만 적용되는거 같네요 ^^
동적으로 폼생성시엔 화면이 나오지 않네요 ^^;;
암튼 존답변 감사합니다.

즐건운 하루 보내셔유~^^

이론 하나를 빠뜨렸네요 ^^;

호출할
폼의 제일마지막  

end.

앞에
다음코딩을 추가하세요

initialization
RegisterClass(T폼명);      

동적으로 생성할 폼은 전부다 추가 해줘야 합니다.
폼명은 반드시 T+폼명 으로 해주세요
그럼 이만~~~

감솨 감솨 ㅋㅋㅋ