GetCurrentVersion/de

uses
  Windows, SysUtils, ...;

  ...

function funGetCurrentVersion: string;
var
  lwdVerInfoSize: longword;
  lwdVerValueSize: longword;
  lwdDummy: longword;
  ptrVerInfo: Pointer;
  VersionsInformationen: PVSFixedFileInfo;

begin

  lwdVerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), lwdDummy);
  GetMem(ptrVerInfo, lwdVerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, lwdVerInfoSize, ptrVerInfo);
  VerQueryValue(ptrVerInfo, '\', Pointer(VersionsInformationen), lwdVerValueSize);

  with VersionsInformationen^ 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(ptrVerInfo, lwdVerInfoSize);

end;

...