uses
  Registry;
 
procedure TForm1.ButtonCariClick(Sender: TObject);
var
  rReg: TRegistry;
begin
  rReg:=TRegistry.Create;
  with rReg do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if KeyExists('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Flash Player Plugin') then
      ShowMessage('ada')
    else
      ShowMessage('ga ada');
    Free;
  end;
end;