for i:=0 to 9 do
      begin
           if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + info[i] ), Pointer(pcValue),iLenOfValue) then
              Result := Result + pcValue + #13+#10
           else Result := Result + 'Unknown' + #13+#10   
               
      end;