Version Info for Splash Screens (Delphi)

uses
   SysUtils,  ImageHlp;

function GetAppVersionStr: string;

function TformSpalsh.GetAppVersionStr: string;
var
  Exe: string;
  Size, Handle: DWORD;
  Buffer: TBytes;
  FixedPtr: PVSFixedFileInfo;
begin
  Exe := ParamStr(0);
  Size := GetFileVersionInfoSize(PChar(Exe), Handle);
  if Size = 0 then
    RaiseLastOSError;
  SetLength(Buffer, Size);
  if not GetFileVersionInfo(PChar(Exe), Handle, Size, Buffer) then
    RaiseLastOSError;
  if not VerQueryValue(Buffer, '\', Pointer(FixedPtr), Size) then
    RaiseLastOSError;
  Result := Format('%d.%d.%d.%d',
    [LongRec(FixedPtr.dwFileVersionMS).Hi,  //major
     LongRec(FixedPtr.dwFileVersionMS).Lo,  //minor
     LongRec(FixedPtr.dwFileVersionLS).Hi,  //release
     LongRec(FixedPtr.dwFileVersionLS).Lo]) //build
end;

procedure TformSpalsh.FormCreate(Sender: TObject);
var
  Rec: LongRec;
  fileDate : Integer;
begin
  fileDate := FileAge('E_MultiDrugs.exe');
  Label1.Caption :=  DateToStr(FileDateToDateTime(fileDate));
  Label2.Caption := GetAppVersionStr();
end;