Oplysninger fra DLL fil

Jeg bruger Application.Title til at finde navnet på mit program i en About box + jeg bruger nedenstående for at finde filversionen.
Men fra en Outlook plugin DLL virker det ikke - den viser navnet på Outlook applikationen og versionsnummeret på Outlook.
Findes der en anden metode til at hive de oplysninger så de virker i en DLL

Function AppVersion : 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));
          End;
      Finally
        FreeMem (Pt);
      End;
    End;
  If Result = '' Then
    Result := '0.0.0';
End;