wersja aplikacji

W jaki sposob w labelu umieścić numer wersji aplikacji, ktory znajduje sie w MenuProject/Options/Version Info?

var
VInfoSize, DetSize : cardinal;
pVInfo, pDetail : Pointer;
str : String;
i : Integer;
begin
lver.Caption := '';
VInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)),DetSize);
if VInfoSize > 0 then
begin
Getmem(PVInfo, VInfoSize);
try
GetFileVersionInfo(Pchar(ParamStr(0)),0,VInfoSize,PVInfo);
VerQueryValue(PVInfo,'', pDetail, DetSize);
With (TVSFIxedFileInfo(pDetail^)) do
begin
lVer.Caption :='Wersja: '+ IntToStr(HiWord(dwFileVersionMS))+'.' +
IntToStr(loWord(dwFileVersionMS)) +
' Build('+IntToStr(HiWord(dwProductVersionLS)) +'.' + IntToStr(loWord(dwFileVersionLS)) + ')';
end;
finally
FreeMem(PVInfo)
end;
end;
end;

dzieki
udalo sie :-)