Control de versiones

[MAXIUM]

Project -> Options... -> Version Info -> Auto-increment build number.

Código Delphi [-]
// Obtiene la versión de la aplicación actualmente instalada.
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:=
                  IntToStr (HiWord(dwFileVersionMS)) + '.' +
                  IntToStr (LoWord(dwFileVersionMS)) + '.' +
                  IntToStr (HiWord(dwFileVersionLS)) + '.' +
                  IntToStr (LoWord(dwFileVersionLS));
             End;
          Finally
                 FreeMem(Pt);
          End;
     End;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Muestra el número de versión de esta apliación en la barra de títulos.
     Form1.Caption:= 'Club Delphi v' +  GetAppVersion;
     Application.Title:= Form1.Caption;
end;

http://es.wikipedia.org/wiki/Fases_d...lo_de_software
http://es.wikipedia.org/wiki/Software