Fórum HD fisico OK HD label? #333647

Olá

Para capturar o numero fisico do HD utilizo uma função disponilizada aqui no forum , feita por um russo ,que funciona beleza.

Porém para capturar o label do HD, que muda a cada formatação uttilizo a função abaixo

Function SNum(FDrive:String):String;
Var
Serial:DWord;
DirLen,Flags: DWord;
DLabel : Array[0..11] of Char;
begin
Try GetVolumeInformation(PChar(FDrive+´:\´),dLabel,12,@Serial,DirLen,Flags,nil,0);
Result := IntToHex(Serial,8);//este éo original
//Result := IntToSTR(serial);// este é uma variação que fiz.Uso ou uma ou outra nunca as duas
Except Result :=´´;
end;
end;

Para chamar a função
Coloquei no evento on show do form principal
edit2.text:=SNum(FDrive);

E também coloquei em um speedbutton.

O problema é que no evento onshow da um resultado DIFERENTE do evento clic do button , sempre (???).
Alguém sabe a razão?