Delphi dicas

Verifica a existência de uma placa de som

Procedure TestaPlaca(Value:integer);

begin

        som := '';

        if WaveOutGetNumDevs > 0 then

        begin

                result := True

        end

        else

        begin

                Result := False;

        end;

end;