Dateiversion im Fensterrahmen anzeigen lassen

[kurzer_newbie]

Sorry aber wie rufe ich diese Funktion auf ??

meine datei heißt nach dem erzeugen save.exe

Delphi-Quellcode:

function GetVersion(Datei: string): string;
var  aFileName: array [0..MAX_PATH] of Char;
  pdwHandle: DWORD;
  nInfoSize: DWORD;
  pFileInfo: Pointer;
  pFixFInfo: PVSFixedFileInfo;
  nFixFInfo: DWORD;
  pVarFInfo: PChar;
  nVarFInfo: DWORD;
  nVarTrans: DWORD;
  aVarFPath: array [0..MAX_PATH] of Char;
begin
  //Gibt Versionsnummer zurück
  StrPCopy(aFileName,Datei);
  pdwHandle := 0;
  nInfoSize := GetFileVersionInfoSize(aFileName, pdwHandle);
  result:='0';
  if nInfoSize <> 0 then
    pFileInfo := GetMemory(nInfoSize)
  else
    pFileInfo := nil;
  if Assigned(pFileInfo) then
  begin
    try
      if GetFileVersionInfo(aFileName, pdwHandle, nInfoSize, pFileInfo) then
      begin
        pFixFInfo := nil;
        nFixFInfo := 0;
        if VerQueryValue(pFileInfo, '\', Pointer(pFixFInfo), nFixFInfo) then
        begin
          result := Format('%d.%d.%d.%d',[HiWord(pFixFInfo^.dwFileVersionMS),
          LoWord(pFixFInfo^.dwFileVersionMS),HiWord(pFixFInfo^.dwFileVersionLS),
          LoWord(pFixFInfo^.dwFileVersionLS)]);
        end;
      end;
    finally
      FreeMemory(pFileInfo);
    end;
  end;
end;

Vielen Dank im vorraus.
Kurzer