var
  S: string;
  n, Len, i: DWORD;
  Buf: PChar;
  Value: PChar;
  filever: string;

begin  
  if pos('IEX',uppercase(Application.ExeName))>0 then
  begin
   // 여기서 ActiveX일때 버젼정보를 다르게 볼필요가 있을듯합니다.
  end else
  begin
    try
      S := Application.ExeName;
      n := GetFileVersionInfoSize(PChar(S), n);
      if n > 0 then
      begin

        Buf := AllocMem(n);
        GetFileVersionInfo(PChar(S), 0, n, Buf);

        for i := 1 to InfoNum do
          if VerQueryValue(Buf, PChar('StringFileInfo\041203B5\' + InfoStr[i]), Pointer(Value), Len) then
            if i=3 then filever:=value;
      end
      else
        filever:='';
    finally
      FreeMem(Buf, n);
      showmessage('현재버젼 : '+ filever);
    end;
  end;
end;

델파이 프로젝트옵션의 버젼정보를 포함할때, 이때 입력한 프로젝트(파일)버젼을 내부에서 보여줄수 있는방법이 있을까하여 여러곳을 찾아봤지만, 위처럼 exe파일을 배포할때는 방법을 찾을수 있었지만, ActiveX일때는 이방법으로 안되더군요.
혹시 아시는분 계실까해서 도움을 요청합니다.
혹시 아시는분 답변주시면 감사하겠습니다.