Foros Club Delphi - Obtener la version de mi proyecto

Yo utilizo esta funcion
Código:
   function GetAppVersion : string;

   var Size, Size2: DWord;

       Pt, Pt2: Pointer;

   begin

        Size := GetFileVersionInfoSize(PChar (ParamStr (0)), Size2);

        if Size > 0 then

         begin

              GetMem (Pt, Size);

              try

                 GetFileVersionInfo (PChar (ParamStr (0)), 0, Size, Pt);

                 VerQueryValue (Pt, '\', Pt2, Size2);

                 with TVSFixedFileInfo (Pt2^) do

                  begin

                       Result:= ' Versión '+

                                IntToStr (HiWord (dwFileVersionMS)) + '.' +

                                IntToStr (LoWord (dwFileVersionMS)) + ' Build ' +

                                IntToStr (HiWord (dwFileVersionLS)) + '.' +

                                IntToStr (LoWord (dwFileVersionLS));

                  end;

              finally

                     FreeMem (Pt);

              end;

         end;

   end;
Espero te sirva