Fórum Propriedades do arquivo #570664

Boa tarde a todos!

Existe um post de vocês que é para verificar as propriedades do arquivos link: https://www.devmedia.com.br/funcao-no-delphi-verifica-propriedade-do-arquivo/3110

Só que não estou conseguindo capturar as propriedades, pois na função nunca altera o valor da variável n conforme mostra o código abaixo:
begin
S := Arquivo;
n := GetFileVersionInfoSize(PChar(S), n);

if n = 0 then begin

vocês podem me ajudar?

Obrigado