Pesquisar na Comunidade

Bom dia Pessoal, Nunca utilizei controle de versão e agora estou precisando muito....então pesquisei que no Delphi em Version Info só habilitando e colocando o auto increment já iria resolver minha situação, mas pelo jeito não 100%. Habilitei o auto increment, todos os modules atributes, mas quando compilo o projeto não sai do 1.0.0.0.... abaixo a função que uso para buscar o numero, mas nunca muda. function GetVersaoArq: string; var VerInfoSize: DWORD; VerInfo: Pointer; VerValueSize: DWORD; VerValue: PVSFixedFileInfo; Dummy: DWORD; begin VerInfoSize := GetFileVersionInfoSize(PChar( ParamStr(0)), Dummy); GetMem(VerInfo, VerInfoSize); GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo); VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize); with VerValue^ do begin Result := IntToStr(dwFileVersionMS shr 16); Result := Result + '.' + IntToStr( dwFileVersionMS and $FFFF); Result := Result + '.' + IntToStr( dwFileVersionLS shr 16); Result := Result + '.' + IntToStr( dwFileVersionLS and $FFFF); end; FreeMem(VerInfo, VerInfoSize); end;