delphi exe information

procedure TForm1.VersionInfo;
const
   InfoStr : array [1..11] of String =
     (
       'CompanyName', 'FileDescription', 'FileVersion',
       'InternalName', 'LegalCopyright', 'LegalTradeMarks',
       'OriginalFilename', 'ProductName', 'ProductVersion',
       'Comments', 'Author'
      );
var
   pLen, j , pHandle : Cardinal;
   VersionBuf,
   VersionValue      : PChar;
begin
  pHandle:=GetFileVersionInfoSize(PChar(Application.ExeName),pHandle);
  if pHandle > 0 then
  begin
    VersionBuf:=AllocMem(pHandle);
    GetFileVersionInfo(PChar(Application.ExeName),0,pHandle,VersionBuf);
    For J:=1 to 11 do begin
      If VerQueryValue(VersionBuf,
                              PChar('StringFileInfo\041F04E6\'+InfoStr[j]),
                              Pointer(VersionValue),
                              pLen) Then
        ListBox.Items.Add(InfoStr[j] +' = '+VersionValue) ;
    end;
    FreeMem(VersionBuf,pHandle);
  end else
    ListBox.Items.Add('Versiyon bilgisi bulunamadı') ;
end;