如何确定Delphi应用程序版本

procedure GetBuildInfo(var V1,V2,V3,V4: word);
var
  VerInfoSize,VerValueSize,Dummy: DWORD;
  VerInfo: Pointer;
  VerValue: PVSFixedFileInfo;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)),Dummy);
  if VerInfoSize > 0 then
  begin
      GetMem(VerInfo,VerInfoSize);
      try
        if GetFileVersionInfo(PChar(ParamStr(0)),VerInfoSize,VerInfo) then
        begin
          VerQueryValue(VerInfo,'',Pointer(VerValue),VerValueSize);
          with VerValue^ do
          begin
            V1 := dwFileVersionMS shr 16;
            V2 := dwFileVersionMS and $FFFF;
            V3 := dwFileVersionLS shr 16;
            V4 := dwFileVersionLS and $FFFF;
          end;
        end;
      finally
        FreeMem(VerInfo,VerInfoSize);
      end;
  end;
end;

function GetBuildInfoAsString: string;
var
  V1,V4: word;
begin
  GetBuildInfo(V1,V4);
  Result := IntToStr(V1) + '.' + IntToStr(V2) + '.' +
    IntToStr(V3) + '.' + IntToStr(V4);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Caption := Form1.Caption + ' - v' + GetBuildInfoAsString;
end;