Form Open하는 SRC를 올리시죠..그러면 더 쉬울듯 한데...

var FormList : TStringList = nil;

function CreateFormByName(FormClassName : String) : TForm;
var i : integer;
begin
  result := nil;

  CreateForm((PFormRec(FormList.Objects[i]))^.FormClass,result);
  (PFormRec(FormList.Objects[i]))^.Form^ := result;
  end;
end;

procedure DestroyFormList;
var i : integer;
begin
  if FormList <> nil then
  begin
    for i:= 0 to FormList.count -1 do
      DisPose(PFormRec(FormList.Objects[i]));
    FormList.Free;
  end;
end;

initialization
  FormList := TStringList.Create;
  FormList.Sorted := TRUE;

finalization
  DestroyFormList;


from Open command
CreateFormByName('TfrmTest').Caption := 'Test';

delphi 6에서 적용해보았는데 에러가 발생하내요!!
에러 내용은 CreateForm이 정의되지 안았다는 내용이었습니다.
소스도 올림니다.
꼭 답변주셨으면 감사하겠습니다.
자세한 설명도 부탁드림니다.