var
  dwInstalledFlashVersion: DWORD;
begin
  dwInstalledFlashVersion := FlashPlayerControl.GetInstalledFlashVersion;

  if dwInstalledFlashVersion <> 0 then
    ShowMessage
    (
      Format
      (
        'Installed version: %d.%d.%d.%d',
        [
          HIBYTE(HIWORD(dwInstalledFlashVersion)),
          LOBYTE(HIWORD(dwInstalledFlashVersion)),
          HIBYTE(LOWORD(dwInstalledFlashVersion)),
          LOBYTE(LOWORD(dwInstalledFlashVersion)),
        ]
      )
    )
  else
    ShowMessage('Flash not installed');
end;