method 1:
uses comobj;
procedure TForm1.Button1Click(Sender: TObject);
where
v: variant;
begin
v:=CreateOleObject('ShockwaveFlash.ShockwaveFlash');
if not VarIsNull(v)
then showmessage ( 'mounted control FLASH')
else showmessage ( 'control is not installed in the FLASH' ');
end;
Method 2:
uses ActiveX;
where
AGUID: TGUID;
if not Succeeded(CLSIDFromProgID('ShockwaveFlash.ShockwaveFlash', AGUID)) then
// not installed